Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 получил!