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


найти сумму четных чисел в промежутке от 1 до 1000 (3 способа)

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

    var i,s:integer;

    {1}begin

    s:=0;

    for i:=1 to 1000  do

    if i mod 2=0 then s:=s+i;

    end.

    {2}begin

    for i:=1 to 1000 do

    if odd(i) then s:=s+i;

    {3}a:array[1..500] of integer;

    n:integer;

    for i:=1 to 1000 do

    if odd(i) then a[i]:=i;

    n:=i;

    for i:=1 to n do

    s:=a[i]+s;

    end.

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц