Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция (if, then, else и проч.) Задача 1 Заданы два целых числа. Напечатать делится ли первое на второе нацело. Задача 2 Напечатать, является ли заданное число чётным. Задача 3 Вводятся 3 числа. Найти наибольшее.

program zz1;

var a, b, c:integer; / / задаем переменные целого типа

begin

/ / задача 1

write ('введите первое число');

read (a);

write ('введите второе число');

read (b);

if (a mod b = 0)

then write (' делится ')

else write (' не делится ');

/ / задача 2

write ('введите число');

read (a);

if (a mod 2 = 1)

then write (' является ')

else write (' не является ');

/ / задача 3

write ('введите первое число');

read (a);

write ('введите второе число');

read (b);

write ('введите третье число');

read (c);

if (a > b) and (a > c) then write (' большее ', a);

if (b > a) and (b > c) then write (' большее ', b);

if (c > b) and (c > a) then write (' большее ', c);

end.