Вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.
Пожалуйста, скорее. Завтра же нужно сдать работающую программу.
Нет комментариев
Ответы
Гость Var
x, y, n: integer;
begin
read(n);
for x := 1 to n do
begin
y := 4 - x;
writeln(y);
end;
end.
Нет комментариев
Похожие вопросы
Информатика
В одномерном массиве A(10) найти наибольший элемент из отрицательных напишите пожалуйста...
Информатика
Составить программу на паскалем, которая выводит на экран максимальное число из трех вводимых...
Информатика
136ж срочно составить программу паскаль...
Информатика
Помогите пожалуйста с 157 заданием...
Список предметов
