fkn+antitotal

Задача 10 Урок 9:

Есть программа:

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

Задача 8 Урок 9:

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

Задача 7 Урок 9:

Пользователь вводит четыре числа, найдите из них максимальное.

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

Задача 6.2 Урок 9:

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
С вложенными блоками (без and, все опараторы if должны быть в полной форме).

Задача 6.1 Урок9:

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
С использованием логической операции and.

Задача 5 Урок 9:

Пользователь вводит два числа, найдите из них максимальное.

var
  a,b:integer;
begin
     writeln('vvedite 1 chislo');
     readln(a);
     writeln('vvedite 2 chislo');
     readln(b);
     begin
          if (a>b) then
             writeln('a bolshe :', a)
          else
             writeln('b bolshe :', b)
     end;
     readln();
  end.

Вывод консоли:

vvedite 1 chislo
5
vvedite 2 chislo
7
b bolshe :7

Задача 4 Урок9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

 var
   a,b,c:integer;
begin
     a:=18;
     b:=19;
     c:=8;
     begin
          if ((a>17)and(b>17)and(c>7))then
             writeln('da')
          else
             writeln('net')
     end;
     readln();
end.  

Вывод консоли:

da

Задача 3 Урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.