С клавиатуры вводятся числа до тех пор пока не введено число -5.найти количество четных чисел из веденных
С клавиатуры вводятся числа до тех пор пока не введено число -5.найти количество четных чисел из веденных
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы