1. Выведите на экран значение логического выражения, которое принимает значение true, если К является двухзначным числом, кратным пяти и false - в противном случае.

program k5_2;

var k: integer;

m: boolean;

begin

k : = 1;

while k0 do

begin

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

readln (k);

if ((k > 9) and (k < 100) and (k mod 5 = 0)) then m : = true else m : = false;

writeln (m)

end

end.

В программе проверяется условие: число должно быть больше 9 и меньше 100 (то есть двузначным), а также кратным числу 5 для того, чтобы логическая переменная m приняла значение truе. Если хотя одна часть условия не выполняется, то m = false.