fkn+antitotal

Вложенные циклы

{13.1 — 4 Пользователь вводит числа до тех пор пока не введёт число меньшее 1.
В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа,
при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.}

Вложенные циклы

{13.1 — 3 Выведите на экран таблицу умножения используя один цикл while и один repeat-until.}

Вложенные циклы

{13.1 — 2. Выведите на экран таблицу умножения используя только циклы вида while.}

Вложенные циклы

{13.1 Выведите на экран таблицу умножения используя только циклы вида repeat/until.}

For, While и Repeat/Until в Паскаль -- связь между циклами и их взаимозаменяемость

{12-2.2 Имеется программа:}

For, While и Repeat/Until в Паскаль -- связь между циклами и их взаимозаменяемость

{12-2.1 Имеется программа: }

Repeat/Until

{12-1.5 Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

Указание: сначала можно решить задачу двумя циклами, но потом перепишите
с использованием одного цикла, в теле которого составьте логическое выражение,
описывающее подходящие числа (используйте логические операции).}

Repeat/Until

{12-1.4 Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело
, лежащие в диапазоне от 35 до 117.}

var a,b:integer;
begin
  a:= 35;
  b:= 117;
  repeat
    if ((a mod 3 = 0) OR (a mod 6 = 0)) then
      write(a, ' ');
    a:= a+1;
  until (a > b);
  write('over');
  readln();
end. 

Repeat/Until

{12-1.3 Пользователь вводит в консоль символы (после каждого нажимая Enter),
в ответ выводите символ '&', до тех пор пока пользователь не введёт '#',
после чего завершите программу.}

var a:char;
begin
  repeat
    write('write your symbol ');
    readln(a);
    writeln('&');
  until (a = '#');
  write('over');
  readln();
end.   

Repeat/Until

{12-1.2 Пользователь вводит целое число, если оно больше единицы,
то выведите на экран все целые числа от этого числа до единицы (в обратном порядке),
которые делятся на 23 без остатка.Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.}