• вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.
    Пожалуйста, скорее. Завтра же нужно сдать работающую программу.

Ответы 2

  • var  x,n:integer;begin  Write('n='); Read(n);  for x:=1 to n do     Writeln(x:5,4-x:10)end.  Примерn=10    1         3    2         2    3         1    4         0    5        -1    6        -2    7        -3    8        -4    9        -5   10        -6
  • var   x, y, n: integer;  begin   read(n);   for x := 1 to n do   begin     y := 4 - x;     writeln(y);   end; end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years