fkn+antitotal

Урок 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 
      write(i, ' ');
end.

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

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

var i : integer;

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

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

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

var i : integer;

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

Урок 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 
      write(i, ' ');
end.

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

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

var i, a : integer;

begin
  writeln('Введите целое число:');
  readln(a);
  
  if (a > 100) then
    for i := a downto 1 do
      write(i, ' ')
  else
    for i := 1 to a do
      write(i, ' ');
end.

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

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

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

Выведите на экран, все четные числа от 35 до 64.

var i : integer;

begin
  for i := 35 to 64 do
    if (i mod 2) = 0 then 
      write(i, ' ');
end.

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

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:

1
5
ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

ответ: 5 4 3

Проверить решение для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для: