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

Программа получает на вход число N.Проанализировать,кратно ли оно 4 или 3.Если кратно 3 вывести фразу «кратно 3».Если кратно 4 вывести фразу «Кратно 4»

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

    var

       k3, k4 : boolean;

       n : integer;

       

    begin

       writeln('введите число ');

       readln(n);

       k3 := n mod 3 = 0;

       k4 := n mod 4 = 0;

       if k3 and k4 then writeln('кратно 3 и 4')

       else if k3 then writeln('кратно 3')

       else if k4 then writeln('кратно 4')

       else writeln('хрень а не число');

    end.

    прога так же сообщает еси число кратно 3 и 4 либо не крато ни тому ни другому.

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