Написать программу которая складывает числа от 4 до 100
Написать программу которая складывает числа от 4 до 100
Гость
Ответ(ы) на вопрос:
Гостьvar i,sum:integer;
Begin
for i:=4 to 100 do
begin
sum:=sum+i;
writeln('Summa#',i,'=',sum);
end;
end.
Не нашли ответ?
Похожие вопросы