Дана последовательность чисел оканч. на 0; Найти сумму четных и кол-во

Дана последовательность чисел оканч. на 0; Определить сумму четных и кол-во нечетных и если есть желая бы одно отрицательное число вывести 'Да'.

Задать свой вопрос
1 ответ
Program n1;
var a,sumc,kn: integer;
ot: byte;
begin
readln(a);
kn:=0;
sumc:=0;
ot:=0;
while alt;gt;0 do
begin
if alt;0 then ot:=1;
if a mod 2=0 then sumc:=sumc+a else
kn:=kn+1;
readln(a);
end;
writeln('сумма четных: ',sumc);
writeln('кол-во нечетных: ',kn);
if ot=1 then write('да');
end.
Елена Докшукина
Спасибо!!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт