Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Подсказка: в каждой ветке условного оператора тут должно быть по одному циклу.
Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.
Пользователь вводит 2 целых числа, выведите на экран не более 1 из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более одного).
program u10z3;
var a, b: integer;
begin
writeln('Vvedite a, b:');
readln(a, b);
if ((a mod 4 = 0) AND (b mod 4 = 0) OR (a mod 4 = 0)) then
writeln(a)
else if (b mod 4 = 0) then
writeln(b);
readln();
end.
Получите от пользователя значения четырёх символьных переменных, выясните -- выполняется ли следующее условие:
""первая переменная равна третьей, не равна второй или третья равна четвертой""
var
a, b, c, d: char;
E: boolean;
begin
writeln ('vvedite symboly');
readln (a, b, c, d);
E := (a=c)AND(a<>b)OR(c=d);
writeln ('Vypolnietsi li uslovie? ', E);
end.