fkn+antitotal

Задача 12 урок 9

Изучите код:
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:
оператор if итак неявно сравнивает значение логического выражения в скобках с true (и принимает решение, какую именно ветку then или else выполнить)
для второго if в коде выше потребуется использование оператора Not.

Задача 11 урок 9

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

Задача 10 урок 9

Есть программа:
-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

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

var i:integer;

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

Консоль:

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

Задача 9 урок 9

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5: -- но сейчас код написан неоптимально и при каждом запуске выполняется 2 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.

Перепишите программу оптимальным образом.

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

var i:integer;

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

Консоль:

36 39 42 45 47 48 49 51 53 54 55 57 59 60 61 63 65 66 67 69 71 72 73 75 77 78 79 81 83 84 85 87 89 90 91 93 95 96 97 99 102 105 108 111 114 117

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

var i:integer;

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

Консоль:

36 38 40 42 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 102 104 106 108 110 112 114 116 

Задача 8 урок 9

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

var k, n, d: integer;
begin
k:= 9;
n:=9;
d:=9;
if ((k+n)>20) or ((d*n)<55) then 
  writeln('ничья')
else
  writeln('Коля победил');
end.

Выведите на экран, все нечетные числа, делящиеся на 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,' ');
end. 

Консоль:

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

Пользователь вводит целое число, если оно больше 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: