Дана не пустая последовательность чисел заканчивающаяся нулем

Question

Дана не пустая последовательность чисел заканчивающаяся нулем. Найтимаксимум.

Answer 1

33

gpoject

27 февраля 2023

123456789101112131415161718program cnt; varx,n,k: integer; beginn: =1; {nomer elementa posledovatelnosti}k: =0; {kolichestvo chetnyh elementov s nomerami,kratnym 5}writeln ('введите число'); repeatbeginreadln (x); if (x mod 2=0) and (n mod 5=0) theninc (k); n: =n+1; end; until x=0; writeln ('k=',k); readln; end. За это 5 получил!

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

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

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

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

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