Question

Даю 40 баллов
Вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.СРОЧНО!!!
Причина

Answer 1

program raf105;

var x,y,n,i: integer;

begin

write('n = ');

readln(n);

for i:=1 to n do

begin

 x:= i;

 y:= 4-x;

 writeln(i:2,'.  x=',x:2,'  y=',y:2);

end;

end.

PascalABC 3.4.2