•  Дано число а. Выяснить является ли оно не кратным 3 или 4. Если - да, то переменной y присвоить значение 1, иначе - 0.

Ответы 2

  • var a,y:integer;beginreadln(a);if (a mod 3=0) or (a mod 4=0) then y:=1 else y:=0;writeln(y);readln;end.
    • Автор:

      studkesk
    • 6 лет назад
    • 0
  • Некратно - переменная равна 1, кратно - 0.program qq;uses crt;var a, p: integer;beginp:=1; //Присвоим переменной значение единицы (Положим, число некратно трем и четыремwriteln('Введите число а');readln (a);if a mod 3 = 0 then //Остаток от деления числа на 3   if a mod 4 = 0 then //Остаток от деления числа на 4                                   p:=0; // Если оба условия выполнены, то число кратно, переменная равна 0writeln (p);end.Так же тело программы можно представить следующим образом (учитываем, что если число кратно 3 и 4, то оно кратно 12)p:=1;writeln('Введите число');readln (a);if a mod 12 = 0 then  p:=1;writeln (p);
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years