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

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

Question

Информатика

Платонида

7 октября, 01:09

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

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

+2

Ответы (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.

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

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

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