Напишите программу в pascal abc

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

Question

Информатика

Василиска

19 августа, 11:35

Напишите программу в pascal abc

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

+5

Ответы (1)

Знаете ответ на вопрос?

Боруля · 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.

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

Напишите программу в pascal abc

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