вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.
Пожалуйста, скорее. Завтра же нужно сдать работающую программу.
Пожалуйста, скорее. Завтра же нужно сдать работающую программу.
More Questions From This User See All
Answers & Comments
x, y, n: integer;
begin
read(n);
for x := 1 to n do
begin
y := 4 - x;
writeln(y);
end;
end.