Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
program zadacha5;
var i: integer;
begin
i:= 35;
repeat
if (i mod 2 = 0) or ((i>=45) and (i<=99) and (i mod 7 = 0) and (i mod 3 = 0) and (i mod 2 =1)) then
write(i,' ');
i:=i+1;
until i=117 ;
readln();
end.
Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.
program zadacha3;
var i: char;
begin
repeat
writeln('Vvedite chislo:');
readln(i);
writeln('&');
until i='#' ;
writeln('Konec');
readln();
end.
Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.