fkn+antitotal

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

Запрограммируйте историю:

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

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end. 

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

Решение:

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

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

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

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

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

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

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

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

Решение:

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

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

Решение:

var
  a,b:integer;
begin
  readln(a,b);
  if (a > b) then
    writeln('a>b a=',a)
  else
    writeln('b>a b=',b);
  readln();
end.

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

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

Решение:

var
  a,b,c:integer;
begin
  readln(a,b,c);
  if (a > 17) and (b > 17) and (c > 7) then
    writeln('YES')
  else
    writeln('NO');
  readln();
end.

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

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

Решение:

var
  a,b,c:integer;
begin
  readln(a,b,c);
  if ((a > b) and (b > c)) or ((a < b) and (b < c)) then
    writeln('YES')
  else
    writeln('NO');
  readln();
end.     

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

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

Решение:

var
  a,b : integer;
begin
  readln(a,b);
  if (a > b) then
    writeln('12')
  else
    writeln('888');
  readln();
end.