fkn+antitotal

Задача 6 Урок 13.1:

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

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

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

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

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

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

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

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

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

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

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

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

1 У вас есть программа, использующая цикл while:

Var i: integer;
begin
  i:=1;
  while i<=100 do
    begin
      write(i, ' ');
      i:=i+5;
   end;
readln();
end. 

Объясните что делает эта программа (что будет выведно на экран и почему)

Программа выводит цифры с шагом 5

Перепешите её с помощью цикла repeat/until

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

1 Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:
1 5 9 13 17 21 25 29 33 37 41 45

var a:integer;
begin
  for a:=1 to 45 do
    if ((a mod 4)=1) then
      write(a,' ');
  readln();
end.  
</pre>

Вывод консоли:
1 5 9 13 17 21 25 29 33 37 41 45

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

1 Имеется программа:

 var i: integer;
begin
for i:=5 to 34 do
write(i, ' ');
readln();
end

Что в ней происходит? Что будет на экране после её выполнения?

С помощью цикла for происходит вывод на экран чисел от 5 до 34.

Перепишите её, используя цикл while

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

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

Первый вариант: