Question

Помогите
1)Записать в тетради программу, выводящую на экран сумму всех нечетных чисел в интервале от 0 до 1000.
2)Знать операторы циклов. Записать в тетради программу: вывести на экран ряд натуральных чисел, не превышающий заданного числа N.

Answer 1

1)var

a,b:integer;

begin

 a:=0;

 b:=1;

 repeat

   a:=a+b;

   b:=b+2;

 until b>1000;

 writeln(a,' ',b);

end.

Запиши в тетради только.

2)var

b,n:integer;

begin

 readln(n);

 b:=0;

 repeat

   inc(b);

   write(b,' ');

 until b>=N;  

end.

Answer 2

var

   s : integer;

begin

   for var i := 0 to 1000 do if i mod 2 > 0 then s += i;

   writeln('s=', s);

end.    

var

   n : integer;

begin

   write('введите n=');

   readln(n);

   for var i := 1 to n do write(i, ' ');

end.