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

murzyatyan murzyatyan    2   20.05.2019 16:53    1

Ответы
ilyu777 ilyu777  14.06.2020 05:16

program raf105;

var x,y,n,i: integer;

begin

write('n = ');

readln(n);

for i:=1 to n do

begin

 x:= i;

 y:= 4-x;

 writeln(i:2,'.  x=',x:2,'  y=',y:2);

end;

end.

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