HanZamay
18.06.2022 00:34

Проблема та-же но осталось всего 1 (остальные 4 сделал сам вот само : напишите программу которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел , не превосходящих 256. программа получает на вход целые числа, количество которых неизвестно, последовательность чисел заканчивается числом 0(0 - признак окончания ввода,не входит в последовательность).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Annpi
06.10.2020 13:04
Var a,n: integer; s:longint;
begin
  s:=0;
  n:=0;
  readln(a);
  while a<>0 do begin
     n:=n +1;
     if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;
     readln(a);
     end;
writeln(n);
writeln(s)
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота