Напишите программу которая в последовательности натуральных чисел…

Question

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

Answer 1

66

vestal

13 апреля 2023

Так, нет? Просто я не понял что ты этим «последовательность чисел заканчивается 0" имела ввиду) vari,n,l: integer; a: array [1… 1000] of integer; beginwrite ('Введите кол-во чисел: '); readln (n); for i: =1 to n do beginwrite ('a[',i,']='); readln (a[i]); end; for i: =1 to n do beginif (a[i]mod 6=0) and (a[i]mod 10=4) then l: =l+a[i]; end; write (l); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: