fkn+antitotal

Урок 12.2. Задача 1.

Имеется программа:
var i: integer;
begin
for i:=5 to 34 do
write(i, ' ');
readln();
end.
Ответьте на вопросы/выполните задания
Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

Урок 12.1. Задача 7.

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

var a : integer;

begin
  a := 35;
  repeat
    if (a mod 2 = 0) then
      write(a, ' ')
    else
      if ((a > 44) and (a < 100)) and ((a mod 3 = 0) or (a mod 7 = 0)) then
        write(a, ' ');
    a := a + 1
  until (a > 117);
  readln();
end. 

Урок 12.1. Задача 6.

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

var a : integer;

begin
  a := 35;
  repeat
    if (a mod 3 = 0) and (a mod 6 = 0) then
      write(a, ' ');
    a := a + 1
  until (a = 117);
  readln();
end.

Урок 12.1. Задача 4.

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

var a : char;
x : boolean;
begin
  x := true;
  repeat
    readln(a);
    if (a = '#') then
      x := false
    else
      writeln('&');
  until (x = false);
  readln();
end.

Урок 12.1. Задача 4.

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

Если мы введем число 55, то программа должна вывести в ответ:
23
46
-- т.е. два числа

Урок 12.1. Задача 2.

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

var a, b: integer;

begin
  a := 55;
  b := 9236;

  repeat
    write(a, ' ');
    a := a + 1;
  until (a > b);

  readln();
end.

Урок 11. Задача 16.

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Урок 11. Задача 15.

Урок 11. Задача 14.

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Вспомогательная задача (сдавать не обязательно):
Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

1 5 9 11 15 19 23 27 31 35 39 43

var i:integer;
begin
 for i:=1 to 44 do
  begin
   if ((i mod 4)=1) then
   writeln(i)
  end;
 readln();
end.