Вводится трехзначное число,найти произведение первой и последней цифры числа. Сделать на Паскале
Answers & Comments
ZaharovVasya
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.
Answers & Comments
begin
Writeln('Vvedite chislo');
readln(a);
b1:=a div 100;
b2:=a mod 10;
P:=b1*b2;
writeln('Proizvedenie = ',P);
readln;
end.