Задано двухзначноечисло найдите произведение между кольчеством дестков и едниц

nekitder nekitder    1   17.09.2019 02:40    1

Ответы
0ForeverUnicorn0 0ForeverUnicorn0  21.08.2020 09:57
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger().ToString();
write(a[1].ToDigit()*a[2].ToDigit());
end.
ПОКАЗАТЬ ОТВЕТЫ
nekiti444 nekiti444  21.08.2020 09:57
Var
  n:integer;
 
begin
  Read(n);
  Writeln((n div 10)*(n mod 10))
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика