fkn+antitotal

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

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

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

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

С использованием логической операции and.
С вложенными блоками (без and, все операторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

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

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var a, b: integer;
begin
  writeln('Введите два целых числа: ');
  readln(a, b);

  if (a > b) then
    writeln('Число ', a, ' максимальное')
  else
    write('Число ', b, ' максимальное');

  readln();
end.    

Консоль:

Введите два целых числа:
5
3
Число 5 максимальное

Введите два целых числа:
4
6
Число 6 максимальное

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

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

var a, b, c: integer;
begin
  writeln('Введите три целых числа: ');
  readln(a, b, c);

  if ((a > 17) and (b > 17) and (c > 7)) then
    writeln('Да')
  else
    writeln('Нет');

  readln();
end.   

Консоль:

Задание 3 Урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

Задание 2 Урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var a, b: integer;
begin
  writeln('Введите два целых числа: ');
  readln(a, b);

  if (a > b) then
      writeln(12)
  else
      writeln(888);

  readln();
end.    

Консоль:

Введите два целых числа: 
8
6
12
Введите два целых числа: 
6
8
888

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a, b: integer;
begin
  writeln('Введите два целых числа: ');
  readln(a, b);

  if (a > b) then
     write(12)
 
  readln();
end.   

Консоль:

Введите два целых числа: 
10
7
12
Введите два целых числа:
7
10

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');

Урок 9 задача 8

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

Урок 9 задача 7

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