информатика. с обьяснением

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

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / b = ...

3) прибавь 4 — ...

4) прибавь 4 — ...

5) прибавь 4 — 12 + 4 = 16

Рассмотрим детальней, заменив неизвестные на буквы:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / b = x

3) прибавь 4 — x + 4 = y

4) прибавь 4 — y + 4 = 12

5) прибавь 4 — 12 + 4 = 16

Теперь выписываем выражения с неизвестными и методом подстановки создаем одно большое уравнение:

52 / b = x

x + 4 = y

y + 4 = 12

52 / b + 4 + 4 = 12

52 / b = 4

b = 52 / 4 = 13

Неизвестное число b равно 13.

Проверяем:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / 13 = 4

3) прибавь 4 — 4 + 4 = 8

4) прибавь 4 — 8 + 4 = 12

5) прибавь 4 — 12 + 4 = 16

Все верно

ответ: 13

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.