fkn+antitotal

Задание 5 Урок 12.1

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Решение задачи 2 из главы 12.2

2. У вас есть программа, использующая цикл while...Объясните что делает эта программа (что будет выведно на экран и почему).
Перепешите её с помощью цикла repeat/until.
Перепешите её с помощью цикла for.

- Цыклом выводятся целые числа от 1 до 100 с шагом 5. На экране будут выведены числа 1, 6, (и т.д., каждое последующее число считаем, прибавляя 5 к предыдущему).
- Перепешите её с помощью цикла repeat/until.

Решение задачи 1 из главы 12.2

1. Имеется программа...Ответьте на вопросы/выполните задания
Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

- Цыклом выводятся целые числа от 5 до 34.
- На экране будут выведены числа от 5 до 34 через пробел.
- Перепишите её, используя цикл while.

Задание 4 Урок 12.1

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

var i : integer;

begin
  i := 35;
  repeat
    if (((i mod 3) = 0)) and ((i mod 6) = 0) then
    write(i, ' ');
    i += 1;
  until (i > 117);
  writeln();
  write('Программа завершена, нажмите ENTER!');
  readln();
end.

Задание 3 Урок 12.1

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

var i : char;

begin
  repeat
    write('Введите символ и нажмите ENTER:');
    readln(i);
  until (i = #35);
  write('Программа завершена, нажмите ENTER!');
  readln();
end.

Задание 2 Урок 12.1

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

Задание 1 Урок 12.1

Выведите на экран, все числа от 55 до 9236.

var i : integer;
begin
  i:= 55;
  repeat
    write(i, ' ');
    i := i + 1;
  until (i > 9236);
  readln();
end. 

Задание 8 Урок 11

Пользователь вводит целые числа в цикле (разные: четные,
нечетные, положительные, отрицательные в любом порядке и количестве).
Считайте и выведите на экран значения первых трех отрицательных нечетных чисел.
После чего завершите цикл.

Задание 7b Урок 11

Пользователь вводит целые числа, в ответ выводите символ #. Если
введенное пользователем число равно 22, то завершите цикл не выводя ничего в
ответ. Решите эту задачу 2-мя способами:

С использованием break

var i : integer;
begin
  i := 1;

  while (i <> 0) do
  begin
    write('Введите целое число и нажмите ENTER:');
    readln(i);
    if (i = 22) then
      break;
    writeln(#35);
  end;
  readln();
end.

Задание 7 Урок 11

Пользователь вводит целые числа, в ответ выводите символ #. Если
введенное пользователем число равно 22, то завершите цикл не выводя ничего в
ответ. Решите эту задачу 2-мя способами:
С использованием if()

var i : integer;
begin
  i := 0;

  while (i <> 22) do
  begin
    write('Введите целое число и нажмите ENTER:');
    readln(i);
    if (i <> 22) then
      writeln('#');
  end;
  readln();
end.