Напишите все значения которые принимают переменные (x,y),(x,y)...
program m3;
var x,y,t:integer;
begin
y:=2;
t:=3;
x:=22;
while y<x do begin
y:=y+t;
writeln('y=',y,'x=',x);
end;
end.
Ответы
Ответ дал:
0
Ответ: var
a, b: integer;
procedure h(x: integer; var y: integer);
begin
x := x + 1;
y := y + 1;
writeln(x, y)
end;
begin
a := 0;
b := 0;
h(a, b);
writeln(a, b);
readln
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад