fkn+antitotal

Урок №9 Задание 10

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

Урок №9 Задание 9

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

Урок №9 Задание 8.2

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

program Pr9_82;

var a,b,c:integer;

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

  if (a>b) then
    begin
    if (a>c) then writeln('max=A: ',a)
    end else
      if (b>a) then
        if (b>c) then writeln('max=B ',b)
         else writeln ('max=C: ',c);

readln();

end.

Консоль:

Урок №9 Задание 8.3

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

program Pr9_83;

var a,b,c:integer;
    x:integer;


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

  if (a>b) then x:=a else x:=b;
   if (x>c) then x:=x else x:=c;

  writeln('max = ',x);

  readln();

end.                 

Консоль:

Урок 15 Задача 16:

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:

a1 # a2 # ..... # aN

Где:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

Урок №9 Задание 8.1

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

Урок №9 Задание 7

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

program Pr9_7;

var a,b:integer;

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

  if (a>b) then
     writeln('A>B')
  else
     writeln('B>A');

  readln();
end.         

Консоль:

Введите два числа:
2
4
B>A

Урок №9 Задание 6

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

program Pr9_6;

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.                     

Консоль:

Урок №9 Задание 5

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

program Pr9_5;

var a,b,c:integer;

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

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

  readln();
end. 

Консоль:

Введите три числа:
1
2
3
Нет

Урок №9 Задание №4

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

program Pr9_4;

var a,b:integer;

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

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

  readln();
end.                

Консоль:

Введите два числа:
3
4
888