Регистрация
lana770
28.05.2023 08:43
Информатика
Есть ответ 👍

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

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

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

софияпрекрасная15
софияпрекрасная15
4,8(100 оценок)
beginvar n := ReadArrInteger(ReadInteger).Sum(x->x mod 10=6?x:0); Print(n=0?'NO':n.ToString); end.

Пример работы:


Напишите программу, которая в последовательности натуральных чисел находит сумму чисел, оканчивающих
Пакет11
Пакет11
4,4(39 оценок)

(1) var a: integer; b: boolean;

begin

read(a);

if (a > 100) and (a < 120) then b : = true else b : = false;

if (b) then writeln('popal') else writeln('ne popal');

end.

(2) var i: integer; n: integer;

begin

read(n);

for i : = 1 to n do writeln('i love jumping');

end.

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