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

Question

Информатика

Ишута

30 января, 22:13

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

+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.