Question

Составьте программу на компьютере. Дано двух значное число. Найдите сумму количества единиц и количества десятков данного числа.​

Answer 1

program Project2;

{$APPTYPE CONSOLE}

var s:integer;

begin

 Writeln('vvedi chislo s:');

 Readln(s);

 Writeln('chislo desjatkov=',s div 10);

 Writeln('chislo edinic=',s mod 10);

 Writeln('proizvedenie=',(s div 10)*(s mod 10));

ReadLn;

end.