помогите срочно!!!!!!!!!!!!!!!!!!!!
Приложения:
Ответы на вопрос
Ответил redges
1
Ответ:
a) program a;
var
x: integer;
begin
writeln('Введите x');
readln(x);
while x < 30 do
begin
x:=x*3;
end;
writeln(x);
end.
b) program b;
var
x: integer;
begin
x:=5;
while x < 25 do
begin
x:=x+4;
end;
writeln(x);
end.
Объяснение:
Новые вопросы