Задано двухзначноечисло найдите произведение между кольчеством дестков и едниц
Ответы на вопрос
Ответил Аноним
0
var
n:integer;
begin
Read(n);
Writeln((n div 10)*(n mod 10))
end.
n:integer;
begin
Read(n);
Writeln((n div 10)*(n mod 10))
end.
Ответил DonPedro80
0
PascalABC.NET 3.4
begin
var n := ReadInteger;
Writeln((n mod 10)*(n div 10))
end.
begin
var n := ReadInteger;
Writeln((n mod 10)*(n div 10))
end.
Ответил Аноним
0
(п о х уу и ст) KING NAZAR
Новые вопросы