fkn+antitotal

Урок 14.1 Задача 4

Напишите процедуру, которая получает на вход три целых числа и выводит на экран их сумму.

Решение:

program Project1;
var a, c, f, x: integer;

procedure mk();
begin
  writeln('Введите число:');
  readln(a);
  writeln('Введите число:');
  readln(f);
  writeln('Введите число:');
  readln(c);

end;

begin
  x := a + f + c;
  mk();
  writeln(x);
  readln(x);
end

.

Урок 10 Задача 2:

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

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

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

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

У вас есть три числа (три переменные) найдите их медиану (link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.

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

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

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

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

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

Урок 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
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.