profile
Опубликовано 6 лет назад по предмету Информатика от slm82834

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

  1. Ответ
    Ответ дан Puz1koO

    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.

  2. Ответ
    Ответ дан ingr

    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.

Самые новые вопросы