Вводится последовательность чисел, ноль - конец последовательности. определить сколько чётных чисел было введено? написать while, подробно

263

395

Посмотреть ответы 3

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

eshkeree1

Информатика

4,6(71 оценок)

//pascalabc.net //версия 3.3, сборка 1611 begin write(readseqintegerwhile(x-> x< > 0).where(x-> x.iseven).; end.

terentevvadim33

Информатика

4,5(76 оценок)

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin var k: =0; var t: integer; while true do begin read(t); if t=0 then break; if t.iseven then k+=1 end; writeln('введено четных чисел: ',k) end. пример 25 -51 -87 -98 22 -10 -23 -17 18 -6 -27 18 -16 -3 96 92 34 0 введено четных чисел: 10