Задача 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<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

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

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

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var
   i:integer;
begin
  for i:=1 to 100 do
    if ((i mod 7)=0) then
      writeln(i,' ');
  readln();
end.
    

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

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

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

Ответьте на вопросы/выполните задания

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

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

Выведите на экран, все числа делящиеся на 3 из диапазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var
   i:integer;
begin
  for i:=35 to 117 do
    begin
    if ((i >= 35) and (i <= 117) and ((i mod 3)=0)) then
    write (i,' ');
    if ((i >= 45) and (i <=99) and ((i mod 2)=1)) then
    write (i,' ');
    end;
  readln();
end.

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

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

1) Первый способ

var
    i:integer;
begin
  for i:=35 to 117 do
    if ((i mod 2)=0) then
    writeln(i,' ');
    writeln();
    writeln();
  for i:=45 to 99 do
    if ((i mod 2)=1) then
    writeln(i);
    readln();
end.

2) Второй способ

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

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