Gholbinadar
4 год назад
Пожалуйста посчитайте! Изменить данную программу для while и repeat program_n1;var i,s:integer;begins:=0;for i=10 to 99 dos:=s+i;writeln ('Сумма=',s);end.
ОТВЕТЫ
Верка
Oct 24, 2020
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
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
896
Смежные вопросы: