fkn+antitotal

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

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

var A, B, C : integer;
begin
  readln(A, B, C);
  if (A<B) and (A>C) then
    writeln('ДА');
  else
    writeln('НЕТ');
  readln();
end.

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

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

var a, b: integer;
begin
  readln(a,b);
  if (a>b) then
    writeln('12')
  else
    writeln('888');
  readln();
end.  

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a, b: integer;
begin
  readln(a,b);
  if (a>b) then
    writeln('12');
  readln();
end.

Операция деления нацело, получение остатка

Решение:

5 / 2= 2 ост. 1
12 / 7= 1 ост. 5
1 / 8= 0 ост. 1
34 / 56= 0 ост. 34
4 / 2= 2 ост. 0
3 / 9= 0 ост. 3
9 / 3= 3 ост. 0
1 / 45= 0 ост. 45
5 / 5= 1 ост. 0
1 / 78= 0 ост. 1
8 / 3= 2 ост. 2

этот урок

Вычислите подобным образом:

5 / 2
12 / 7
1 / 8
34 / 56
4 / 2
3 / 9
9 / 3
1 / 45
5 / 5
1 / 78
8 / 3

{
5 / 2 =2 остаток 1
12 / 7 =1 остаток 5
1 / 8  =0 остаток 1
34 / 56 =0 остаток  34
4 / 2  =2 остаток 0
3 / 9 =0 остаток 3
9 / 3 =3 остаток 0
1 / 45 =0 остаток 1
5 / 5  =1 остаток 0
1 / 78  =0 остаток 1
8 / 3   =2 остаток 2
 }                             

урок 8.2

Сдавать/выладывать решение не обязательно:
Есть код:

var a,b : integer;
begin
  a:=2;
b:=3;
 
readln();
end.

Если он отфроматирован неправильно -
исправьте это, и объясните для
себя почему нужно исправить именно так.

var a,b : integer;
begin
  a:=2;
  b:=3;
  readln();
end.                       

урок 8.2

Сдавать/выладывать решение не обязательно:
Есть код:

var a: integer;
  begin
writeln('vvedite celoe chislo');
readln(a);
 
    readln();
end.
Если он отфроматирован неправильно -
 исправьте это, и объясните для себя почему нужно
 исправить именно так.

var a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  readln();
end.                      

урок 9

Сдавать/выладывать решение не обязательно:
Есть код:

var a, b, c, d : integer;
begin
writeln('vvedite a, b, c, d');
readln(a, b, c, d);
if (a > b) then
if (a > c) then
begin
if (a > d) then
writeln ('Выбираем a');
writeln ('Может выбрали a');
  end;
readln();
end.  

-- исправьте форматирование.

Идея деления нацело

При операции деления нацело, мы не работаем с дробями, мы ищем сколько раз делитель поместится в делителе.

Например разделим $7 / 2$,
где в данном случае:

• 7 -- это делимое
• 2 -- делитель

-- двойка умещается в семерке три раза - это и есть результат деления нацело (его называют "частным"):
$$7 / 2 = 3$$
Чтобы понять чему равен остаток, надо умножить частное на делитель и вычесть это из делимого:
$$7 - (2*3) = 1$$

Приведем примеры деления с остатком, например:

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

Есть код:

var a, b, c, d : integer;
begin
writeln('vvedite a, b, c, d');
readln(a, b, c, d);
if (a > b) then
if (a > c) then
begin
if (a > d) then
writeln ('Выбираем a');
writeln ('Может выбрали a');
end;
readln();
end.
-- исправьте форматирование.

Решение: