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

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

Задать свой вопрос
1 ответ

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 или не крато ни тому ни иному.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт