fkn+antitotal

Задача 2 Урок 10.0

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).

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

Пользователь вводит число, определите делится ли оно на 4

var a: integer;
begin
  readln(a) ;
  writeln(a, ' делится на 4:', (a mod 4) = 0) ;
  readln();
end.

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

Была программа

// Вариант 1:
var a: integer;
begin
  writeln('Введите а:');
  readln(a);
  if (a > 5) then
     writeln('a')
  else
     writeln(5);
 
  readln();
end.

Ее переписали так:

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

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

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

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

У вас есть код:

var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f = 0 then
  else
    writeln('Не равно 0!');
 
  readln();
end.

-- который сообщает пользователю, что число не равно нулю, если это действительно так, или в обратной ситуации не делает вообще ничего.

Задача: Перепешите это код в неполной форме (без использования else).

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

Изучите код:

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, с сохранением той же логики работы программы.

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

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

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

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

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, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

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

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

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:

1. сумма баллов Коли и Миши больше 20
2. или произведение баллов Пети и Миши меньше 55

--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.