fkn+antitotal

Задача 5 Урок 13.1

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

Задача 4 Урок 13.1

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

Задача 3 Урок 13.1

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

var
  i, j: integer;
begin
  i:= 1;
  while (i <= 9) do
     begin
       j:= 1;
       repeat
         write(i, '*', j, '=', i*j,' ');
         j:= j + 1;
       until (j > 9);
       writeln();
       i:= i + 1;
     end;
  readln();
end.

Задача 2 Урок 13.1

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

var
  i, j: integer;
begin
  i:= 1;
  while (i <=9) do
    begin
      j:= 1;
      while (j <= 9) do
        begin
          write(i, '*', j, '=', i*j, ' ');
          j:= j + 1;
        end;
      writeln();
      i:= i + 1;
    end;
  readln();
end.

Задача 1 Урок 13.1

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

var
  i, j: integer;
begin
  i:= 1;//счетчик для внешнего цикла
  repeat
    j:= 1;//счетчик для внутреннего цикла
    repeat
      write (i, '*', j, '=', i*j, ' ' );
      j:= j + 1;
    until (j > 9);
    writeln();
    i:= i + 1;
  until (i > 9);

  readln();
end.

Задача 2 Урок 12.2

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

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

Задача 5 Урок 14

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

Задача 4 Урок 14

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -

-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

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

Имеется программа:
var i: integer;
begin
for i:=5 to 34 do
write(i, ' ');
readln();
end.
Ответьте на вопросы/выполните задания

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

Задача 5 Урок 12.1

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