Question

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

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.