Найти количество четных чисел в последовательности чисел.Последовательность чисе...

July 2022 1 13 Report

Найти количество четных чисел в последовательности чисел.Последовательность чисел заканчивается 0.Паскаль Помогите пожалуйста

Answers & Comments

hardmad 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.

3 votes Thanks 3

kis791 Спасибо большое,только после Readln ; забыл,но не важно

hardmad Перед end можно не ставить ;

kis791 Ну ок,объясни пожалуйста зачем нужна строчка k:=k+1?

kis791 А,всё до меня дошло,типо k-колво чётных,изначально оно =0, если выполняется это условие while x<>0 do begin
if x mod 2 = 0 then к к добавляется 1?

hardmad Умничка

Answers & Comments

Helpful Links

Helpful Social