Помогите составить программы пожалуйста!

0 голосов
31 просмотров

Помогите
составить программы пожалуйста!


image

Информатика (12 баллов) | 31 просмотров
Дан 1 ответ
0 голосов

1. Program m1;
var s,n:real;
begin
n:=10;
s:=0;
while n<=124 do<br>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.

(740 баллов)
0

спасибо огромное!!очень помогли