Задание:
Дана не пустая последовательность чисел заканчивающаяся нулем. Найтимаксимум.
Решение:
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 получил!
Знаете другой ответ?