Помогити плииииз:3Даю 40 балов
Напишите программу, которая в последовательности целых чисел находит сумму чётных чисел в диапазоне
от 5 до 25. Программа получает на вход целые числа, количество введённых чисел неизвестно,
последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в
последовательность).
Напишите программу, которая в последовательности целых чисел находит сумму чётных чисел в диапазоне
от 5 до 25. Программа получает на вход целые числа, количество введённых чисел неизвестно,
последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в
последовательность).
More Questions From This User See All
Answers & Comments
Verified answer
Program n1;var a,sum: integer;
begin
sum:=0;
readln(a);
while a<>0 do begin
if (a>=5) and (a<=25) and (a mod 2=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Программа и результат её выполнения на скриншотах.
repeat {блок операторов} until {условие};