Получите от пользователя значения двух символьных переменных, сравните значение каждой с символьным литералом (используйте два разных) и выведите два результата сравнения на экран -- 1) сравнение первой переменной с первым литералом и 2) сравнения второй переменной со вторым литералом.
Напишите программу, которая выводит матрицу из единиц размерами M на N, напр. для M=2 и N=4 мы должны получить результат:
1 1 1 1
1 1 1 1
-- оформите решение программы в виде класса, который (должны быть выполнены все пункты):
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.
var a: integer;
begin
a:= 35;
while a < 116 do
begin
repeat
a:= a + 1;
until (a mod 3 = 0) AND (a mod 6 = 0);
if a < 118 then
writeln(a);
end;
readln();
end.