17 Ноя

Написать программу которая считает количество чисел кратно 4 из промежутка от -80 до

Написать программу которая считает количество чисел кратно 4 из промежутка от -80 до

  • var

    i, count:integer;

    begin

    for i := -80 to 145 do

    if (i <> 0) and (i mod 4 = 0) then

    count := count + 1;

    writeln(Count = , count);

    end.

    //второй вариант

    var

    i, count:integer;

    begin

    for i := -80 to 145 do

    if i mod 4 = 0 then

    count := count + 1;

    writeln(Count = , count — 1);

    end.

    //третий варинат

    var

    i, count:integer;

    begin

    i := -80;

    while i < 145 do

    begin

    i := i + 4;

    count := count + 1;

    end;

    writeln(Count = , count — 1);

    end.

  • var

    i, count : integer;

    begin

    count := 0;

    for i := -80 to 145 do

    if i mod 4 = 0 then inc (count);

    writeln (count);

    end.

  • Добавить комментарий

    Ваш e-mail не будет опубликован. Обязательные поля помечены *