Вводится трехзначное число, найти произведение первой и последней цифры числа.

Сделать на Паскале

Question

Информатика

Оза

20 мая, 08:35

Вводится трехзначное число, найти произведение первой и последней цифры числа.

Сделать на Паскале

+5

Ответы (1)

Знаете ответ на вопрос?

Васяша · Answer 1

Var a, b1, b2, P:integer;

begin

Writeln ('Vvedite chislo') ;

readln (a) ;

b1:=a div 100;

b2:=a mod 10;

P:=b1*b2;

writeln ('Proizvedenie = ', P) ;

readln;

end.

Вводится трехзначное число, найти произведение первой и последней цифры числа.Сделать на Паскале

Вводится трехзначное число, найти произведение первой и последней цифры числа.

Сделать на Паскале