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

Question

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

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.

Comments

Спасибо!