fkn+antitotal

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

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

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 оставьте без изменений).

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

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

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

   readln();
end.

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

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

Задание 4 Урок 10

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

var i: integer;

begin
  for i := 35 to 117 do
    if (((i mod 2) = 1) and ((i mod 3) = 0)) then
      write(i, ' ');

  readln();
end.  

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

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

var i,a : integer;

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

  readln();
end. 

Задание 2 Урок 10

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

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

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

var i : integer;

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

  readln();
end.         

Урок 11 (задача 8)
Небольшие трудности с созданием кода. Пока не понятно, как сохранить три отрицательных числа, не выходя из цикла, а когда конкретно данное количество чисел наберётся - сложить их и завершить программу.

Урок 11 (Решеннные задачи)

1)Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

Урок 10.2 (Решенная задача)

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

var i: integer;
begin
  for i:= 1 to 10 do
    if (i [знакнеравенства] 5) then
     begin
          writeln(777);
          break;
     end
    else
     break;
end.