Срочно, прошу помочь. Работать нужно с ABC PASCAL. Мне нужна программа ( INTEGER,VAR, REAL, PROGRAM) что бы все было, и закночить таблицу. Начать нужно со второго примера. Можете нарисовать и скинуть фотку, но пожалуйста сделайте
Приложения:
Ответы
Ответ дал:
0
program p1;
var x,y:integer;
begin
readln(x,y);
while x<16 do
begin
if (x>y) then
begin
x:=x-2;
y:=y+4;
end
else
begin
x:=x+5;
y:=y-3;
end;
writeln(x,' ',y);
end;
end.
----
Третью отправлю файлом как напишу.
var x,y:integer;
begin
readln(x,y);
while x<16 do
begin
if (x>y) then
begin
x:=x-2;
y:=y+4;
end
else
begin
x:=x+5;
y:=y-3;
end;
writeln(x,' ',y);
end;
end.
----
Третью отправлю файлом как напишу.
Ответ дал:
0
Он не отправляет ссылки
Ответ дал:
0
не ссылку, просто айди
Ответ дал:
0
153396708
Похожие вопросы
6 лет назад