Question

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

Answer 1

Ответ:

var

 i,n,y: integer;

begin

 writeln('Введите число значений');

 readln(n);

   writeln('y=8*x');

 for i:= 1 to n do

   begin

   y:=8*i;

   writeln(y);

   end;

end.