Составить программу нахождения суммы чисел S=1; S=2; S=3; S=4; S=5.
Составить программу нахождения суммы чисел S=1; S=2; S=3; S=4; S=5.
Гость
Ответ(ы) на вопрос:
Гость Var i,s:integer;
begin
s:=0;
for i:=1 to 5 do s:=s+i;
writeln('s=',s);
end.
Результат:
s=15
Не нашли ответ?
Похожие вопросы