fkn+antitotal

Урок 9 задача 3

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

Решение:

var
  a,b : integer;
begin
  readln(a,b);
  if (a > b) then
    writeln('12');
  readln();
end.  

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

В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.

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

В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
- Можно было бы задать угадываемое число (пусть его вводит пользователь)
- Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.

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

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end.     

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

Решение:

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

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

Решение:

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

Консоль:

7
14
21
28
35
42
49
56
63
70
77
84
91
98

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

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

Решение:

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

Консоль:

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

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

Решение:

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

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

Решение:

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

Консоль:

39
45
51
57
63
69
75
81
87
93
99
105
111
117

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

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

Решение:

var i,a:integer;
begin
  readln(a);
    if a>100 then
      for i:=a downto 1 do
        writeln(i, ' ')
    else
      for i:=1 to a do
        writeln(i, ' ');
  readln();
end. 

Консоль:

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

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

Решение: