27 февраля, 19:16

Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50

0
Ответы (1)
  1. 27 февраля, 20:42
    0
    Program Zadacha;

    Const c = 4; max = 50;

    Var a, b: Integer;

    Begin

    a : = c;

    While a < max Do

    Begin

    If a Mod c = 0 Then

    b : = b + a;

    a : = a + 1;

    End;

    WriteLn ('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b) ;

    ReadLn;

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы