Помогите по Паскалю."Сосчитать количество четных и нечетных чисел, введенных с кл?
Помогите по Паскалю."Сосчитать количество четных и нечетных чисел, введенных с кл??виатуры.Всего вводится n чисел."
Гость
Ответ(ы) на вопрос:
Гость Var a, b, c, d:lontgint;
Begin
A:=0; b:=0;
Read(n) ;
For c:=1 to n do begin
Read (a) ;
If a mod 2=0 then a:=a+1
Else b:=b+1; end;
Write (a, , b) ;
End.
Не нашли ответ?
Похожие вопросы