Помогите
составить программы пожалуйста!
1. Program m1;
var s,n:real;
begin
n:=10;
s:=0;
while n<=124 do
begin
s:=s+n;
n:=n+2;
end;
writeln(сумма=,s);
end.
2. Program m1;
var s,n:real;
i:integer;
begin
n:=10;
s:=0;
for i:=1 to 58 do
begin
s:=s+n;
n:=n+2;
end;
writeln(сумма=,s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
