вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.
Пожалуйста, скорее. Завтра же нужно сдать работающую программу.
Ответы
Ответ дал:
0
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
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
Ответ дал:
0
var
x, y, n: integer;
begin
read(n);
for x := 1 to n do
begin
y := 4 - x;
writeln(y);
end;
end.
x, y, n: integer;
begin
read(n);
for x := 1 to n do
begin
y := 4 - x;
writeln(y);
end;
end.
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад