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

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

Question

Информатика

Димаша

27 апреля, 08:10

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

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

+1

Ответы (1)

Знаете ответ?

Акиндин · Answer 1

Var S, n, A:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

For n: = 10 to n+9 do

Begin

A:=n;

S:=0;

While A > 0 do

Begin

S:=S+A mod 10;

A: = A div 10

End;

WriteLn ('Сумма цифр ', n,' равна: ', S)

End;

End.

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

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

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