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