fkn+antitotal

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

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

var b: integer;
 
procedure p2();
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;
 
begin
  writeln('Введите значение b:');
  readln(b);
  p2();
end. 

-- перепишите его так, чтобы процедура не зависила от глобальное переменной b, а получала ее на вход, при этом определяется переменная b (запрос на ввод значения и readln) пусть как и раньше в теле основной программы.

Решение:

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