Вычислить и вывести все значения y по формуле y=8x для всех целых значений x от 1 до n

natasgavrilova natasgavrilova    1   19.05.2020 13:22    1

Ответы
KriStiNaTim03 KriStiNaTim03  06.08.2020 19:52

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика