На обработку данных поступает натуральное число не превышающее 10000000000.нужно написать программу,которая находит сумму цифр числа меньших 6,если таких нет,то выводится "нет"

146

314

Посмотреть ответы 2

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

tatiana342

Информатика

4,4(56 оценок)

Var n: longint; s: integer; p: boolean; begin s: =0; readln(n); while n > 0 do begin if n mod 10 < 6 then begin inc(s, n mod 10); p: =true; end; n : = n div 10; end; if p = true then writeln(s) else writeln('нет'); end.

margarinchik2008

Информатика

4,7(73 оценок)

как это?? Можешь из учебника тему сфотографировать

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

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку