С клавиатуры вводятся числа до тех пор пока не введено 5. Найти колличество четных чисел из введенных .
5-9 класс
|
числа 2 и 4 ))))
Мухтар это ты перечислил целые а не четные
var a:array [1..100] of integer; i,n,b:integer;
begin
i:=1;
while a[i]<>5 do
begin
read(a[i]);
i:=i+1;
n:=n+1;
end;
for i:=1 to n do
if a[i] mod 2=0 then b:=b+1;
writeln(b);
end.
Другие вопросы из категории
уровней громкости сигнала?
символов, после чего объем сообщения составил 176 бит. Сколько символов приписали после перекодировки?
Читайте также
кол-во отрицательных чисел.
чило меньше","Мое число больше","Вы угадали".процесс повторяется до тех пор пока не будет угадано число.
помогите на паскале сделать
Вводится последовательность целых чисел, до тех пор пока не введено число n
Найти сумму положительных среди них?
Написать программу которая будет вводить целые числа до тех пор пока не будетвведён 0. Подсчитать количество положительных и отрицательных чисел.