вычислите сумму всех двузначных чисел, используя циклический оператор
Ответы на вопрос
Ответил Аленусик
0
Var i,s:integer;
begin
for i:=10 to 99 do
s:=s+i;
writeln (s);
end.
ну или
var i,s:integer;
begin
i:=10;
while i<100 do begin
s:=s+i;
i:=i+1;
end;
writeln (s);
end.
begin
for i:=10 to 99 do
s:=s+i;
writeln (s);
end.
ну или
var i,s:integer;
begin
i:=10;
while i<100 do begin
s:=s+i;
i:=i+1;
end;
writeln (s);
end.
Новые вопросы