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

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

  1. Ответ
    Ответ дан preceptor
    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.