fkn+antitotal

Урок 10.1 Задача 1

Выведите на экран, все числа от 35 до 64.

var i: integer;

begin
  for i := 35 to 64 do
    write(i, ' ');
  readln();
end. 

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

У вас есть три числа (три переменные) найдите их медиану

var a, b, c : integer;

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

  if (a > b) and (b > c) or (a < b) and (b < c) then
    writeln(b)
  else
    if (b > a) and (a > c) or (a > b) and (a < c) then
      writeln(a)
    else
      if (c > b) and (a > c) or (b > c) and (c > a) then
      writeln(c);
  readln();
end.

Урок 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

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

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

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

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

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

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

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

var a, b, c: integer;

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

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

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

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

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

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

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

var a, b: integer;

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

  if (a > b) then
    writeln(a)
  else
    writeln(b);
  readln();
end.