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

+ 0 -

Evvost03

24 июля 2014 г., 2:24:43 (9 лет назад)

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.

+ 0 -

Zikkiller1

24 июля 2014 г., 3:18:27 (9 лет назад)

Некратно - переменная равна 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);