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

Напишем программу, которая будет переменной y присваивать значение 1 при выполнении определенного условия, иначе будет присваивать 0.

programm prisvoenie;

var a, b, y: integer;

begin

writeln ('введите любое число с клавиатуры');

readln (a);

b: = a mod 3;

c: = a mod 4;

if b = 0

then

y: = 0;

witeln ('переменной у присвоено значение ноль');

else

y: = 1;

witeln ('переменной у присвоено значение единицы');

if с = 0

then

y: = 0;

witeln ('переменной у присвоено значение ноль');

else

y: = 1;

witeln ('переменной у присвоено значение единицы');

end.