Var a,s:integer;
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
13854
<span>s = 21</span>
Program n1;
var a: integer;
begin
readln(a);
writeln(a+1);
writeln(2*a);
writeln(a*a);
writeln(a*a*a);
writeln(sqrt(a));
end.
Ответ:
Программа запускалась в PascalABC.NET
Объяснение:
НУ конечно сканер! сканер это отдельный предмет который используется для скидывания изображение реальных предметов в компьютер!
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
<u><em>Тестовое решение:</em></u>
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69