Регистрация
Lagoona030
12.01.2021 17:36
Информатика
Есть ответ 👍

На уроках информатики Лёша заинтересовался магическими числами. Это такие натуральные числа, сумма цифр которых равна самому числу. Как-то раз в домашнем задании Лёше попалась интересная задача: "Найдите количество магических чисел, меньших или равных N". Форма входных данных
Первая строка входных данных содержит единственное число N(1<или=N<или =10⁹)

Формат результата
Программа должна вывести одно число- количество магических чисел, не привышающих N

246
302
Посмотреть ответы 1

Ответы на вопрос:

zerg314
zerg314
4,7(78 оценок)
Var a: array[0..20] of integer; i,sum,count: integer; begin sum: =0; count: =0; for i: =0 to 19 do begin a[i]: =random(21)-10; writeln('число ',i+1,': ',a[i]); if a[i]> 5 then begin sum: =sum+a[i]; count: =count+1; end; end; writeln('сумма: ',sum); writeln('кол-во: ',count); end.

Популярно: Информатика