Определить произведение первой и последней цифры числа, вводимого с клавиатуры

Question

Информатика

Любаха

1 мая, 18:16

Определить произведение первой и последней цифры числа, вводимого с клавиатуры

+4

Ответы (1)

Знаете ответ?

Май · Answer 1

Var

A, p:integer;

begin

Write ('Введиnе число:') ;

Readln (A) ;

p: = A mod 10;

while A > 9 do

A:=A div 10;

p:=p*A;

WriteLn (p) ;

Readln;

end.