Напечатать на экран 1 3 5 7 9 используя цикл for.

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

1) присвоения : =2)343,5  3) 1a=2 b=5var a,x,x1,x2,x3: integer; begin      read(a);       writeln('4. s=',4*a);             read(x);       x3: =x mod 10;       x1: =x div 10;       writeln('5. x=',x3*100+x1); end.

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.