ПОМОГИТЕ! Изменить данную программу для while и repeat
program_n1;
var i,s:integer;
begin
s:=0;
for i=10 to 99 do
s:=s+i;
writeln (Сумма=,s);
end.

While:
program n2;
var i,s:integer;
begin
s:=0;
i:=10;
while i<100 do
 begin
 s:=s+i;
 i:=i+1;
 end;
writeln (Сумма=,s);
end.

repeat:
program n3;
var i,s:integer;
begin
s:=0;
i:=10;
repeat
 s:=s+i;
 i:=i+1;
until i=100;
writeln (Сумма=,s);
end.

Результат:
Сумма=4905

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.