Склавиатуры вводятся числа до тех пор пока не введено число -5.найти количество четных чисел из веденных

Question

Информатика: Склавиатуры вводятся числа до тех пор пока не введено число -5.найти количество четных чисел из веденных

Лалиса1 · Answer

var i,s:integer; begin while i -5 do begin readln(i); if i mod 2=0 then s:=s+1; end; writeln(s); end....