Написать программу решения задачи: Вводить целые числа с клавиатуры, пока не будет введен ноль.
а) Найти сумму введенных чисел.
b) Найти количество четных отрицательных чисел среди введенных.
c) Найти максимальное число среди введенных.
а) Найти сумму введенных чисел.
b) Найти количество четных отрицательных чисел среди введенных.
c) Найти максимальное число среди введенных.
More Questions From This User See All
Answers & Comments
begin
var max:=-1000000000;
var sum:=0; var count:=0; var a:=0;
repeat
a:=readinteger('Введите число: ');
if (a.IsEven) and (a<0) then inc(count);
if a>max then max:=a;
sum+=a;
until a=0;
writeln ('a) ', sum);
writeln ('b) ', count);
write ('c) ', max);
end.