fkn+antitotal

Задание 3 Урок 10.2

В примере №2 есть код

Задание 9 Урок 10.1

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

Задание 1 Урок 10.2

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

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

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

Задание 9 Урок 10.1

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

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

Консоль:

Задание 8 Урок 10.1

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

Задание 7 Урок 10.1

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

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

Консоль:

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

Задание 6 Урок 10.1

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

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

Консоль:

Предположим, что файлзилла у вас уже установлена, затем:
Для настройки соединения, делаем следующее:

Задание 1 Урок 10.1

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

var i:integer;
begin
 for i:=35 to 64 do
  write(i, ' '); // выводим значения счетчика через пробел
 readln();
end.    

Консоль:

35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 

Задание 5 Урок 10.1

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