fkn+antitotal

Задача 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.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа.

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

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

1 Выведите на экран, все четные числа, делящиеся на 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.       
                
Вывод консоли:
36 42 48 54 60 66 72 78 84 90 96 102 108 114

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

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