Срочно плииз!!! Pascal составьте программу для вычисления произведения второй цифры и третьей цифры трехзначного целого числа, значение которого вводится с клавиатуры .
Answers & Comments
ghost3131
Var a, b, c, d:integer; begin Read(a); b:=a mod 10; c:=a mod 100; d:=c div 10; WriteLn(b*d); end.
Answers & Comments
begin
Read(a);
b:=a mod 10;
c:=a mod 100;
d:=c div 10;
WriteLn(b*d);
end.