Найти количество четных чисел в последовательности чисел.Последовательность чисел заканчивается 0.Паскаль Помогите пожалуйста
Ответы
Ответ дал:
3
var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
kis791:
Спасибо большое,только после Readln ; забыл,но не важно
if x mod 2 = 0 then к к добавляется 1?
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад