Ответы
Ответ дал:
0
uses crt;
var a,b,c:integer;
begin
a:=3;
c:=3;
b:=0;
while b<>33 do
begin
a:=a+b;
b:=b+c;
end;
writeln(a);
readln
end.
var a,b,c:integer;
begin
a:=3;
c:=3;
b:=0;
while b<>33 do
begin
a:=a+b;
b:=b+c;
end;
writeln(a);
readln
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад