Составьте программу по которой компьютер десять раз запросит ввод целых и в результате...

Question

Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных.
желательно через For и While. Паскаль

Comments

Тут достаточно For - или Вам нужно через оба цикла?

Answer 1

Цикл с параметром:

Var i,A,c,n:integer;
Begin
c:=0;
n:=0;
For i:= 1 to 10 do
    Begin
    Read(A);
    if A mod 2 = 0 then c:=c+1
    else n:=n+1
    End;
WriteLn('Количество чётных: ',c);
WriteLn('Количество нечётных: ',n);
End.



Цикл с предусловием:

Var i,A,c,n:integer;
Begin
c:=0;
n:=0;
i:=1;
While i<=10 do<br>   Begin
   Read(A);
   if A mod 2 = 0 then c:=c+1
   else n:=n+1;
   i:=i+1
   End;
WriteLn('Количество чётных: ',c);
WriteLn('Количество нечётных: ',n);
End.

Comments

Огромное Вам спасибо