Напишите программу в pascal abc Для первых n двузначных натуральных чисел вывести суммы...

Question

Напишите программу в pascal abc
Для первых n двузначных натуральных чисел вывести суммы цифр каждого числа

Comments

Скажите, пожалуйста, чем Вам не нравятся уже написанные программы?

Answer 1

Program z1;
var s,n,x,i:integer;
begin
x:=10;
writeln('введите n');
readln(n);
for i:=1 to n do
begin
s:=x div 10+x mod 10;
write(s,' ');
x:=x+1;
end;
end.