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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.