var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.
Джон фон Нейман впервые это сформулировал
Решим задание наоборот, при этом меняем и команды:
1. 28 - > 2;
2. 58 -> 4.
Команда 1: вычти 3;
Команда 2: квадратный корень из числа.
а)
28 - 3 = 25 (1).
5 (2).
5 - 3 = 2 (1).
Результат записываем снизу-вверх: 121.
б)
58 - 3 = 55 (1).
55 - 3 = 52 (1).
52 - 3 = 49 (1).
= 7 (2).
7 - 3 = 4 (1).
Результат: 12111.
Var a,b,c:real;
begin
writeln('введите два катета');
readln(a,b);
c:=sqrt(sqr(a)+sqr(a));
writeln(c);
<span>end.</span>
1 просьба дедушки
2 побег колобка
3 встреча с лесными животными
4 лисья хитрость или съеденный колобок