Самойло
4 год назад
Пожалуйста посчитайте пожалуйста!!!Срочно!!!напишите программу которая для последовательности натуральных чисел выводит сумму всех входящих в последовательность чисел, меньших 50, но больших 10.Количество чисел не превышает100. Введенные числа не превышают 300. Программа должна вывести одно число-сумму всех входящих в последовательность чисел, меньших 50, но больших 10
ОТВЕТЫ
Ярослав
Oct 24, 2020
var
a,i,sum : integer;
begin
for i:=1 to 10 do begin
read(a);
if (a>10) and (a<50) then sum:=sum +a;
end;
write(sum);
end.
a,i,sum : integer;
begin
for i:=1 to 10 do begin
read(a);
if (a>10) and (a<50) then sum:=sum +a;
end;
write(sum);
end.
117
Смежные вопросы:
