Question

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

Answer 1

Var a,y:integer;
begin
readln(a);
if (a mod 3=0) or (a mod 4=0) then y:=1 else y:=0;
writeln(y);
readln;
end.

Answer 2

Некратно - переменная равна 1, кратно - 0.

program qq;
uses crt;
var a, p: integer;
begin
p:=1; //Присвоим переменной значение единицы (Положим, число некратно трем и четырем
writeln('Введите число а');
readln (a);
if a mod 3 = 0 then //Остаток от деления числа на 3
   if a mod 4 = 0 then //Остаток от деления числа на 4
                                   p:=0; // Если оба условия выполнены, то число кратно, переменная равна 0
writeln (p);
end.


Так же тело программы можно представить следующим образом (учитываем, что если число кратно 3 и 4, то оно кратно 12)
p:=1;
writeln('Введите число');
readln (a);
if a mod 12 = 0 then  p:=1;
writeln (p);

Answer 3

Чтобы определить, является ли число а некратным 3 или 4, можно использовать операторы условия и деление по модулю. Вот пример кода на языке Python:

pythonCopy code
a = int(input("Введите число a: "))  # Ввод числа а

if a % 3 != 0 or a % 4 != 0:
    y = 1
else:
    y = 0

print("Значение переменной y:", y)

В этом коде мы сначала вводим значение переменной а с помощью функции input(). Затем с помощью операторов условия проверяем, что число а не делится на 3 и не делится на 4. Если это условие выполняется, то переменной y присваивается значение 1, иначе - 0. Наконец, выводим значение переменной y с помощью функции print().