Введите, что будет выведено в результате
выполнения следующего фрагмента программы:
a = 20:
b:= 40;
if a mod b = b-a
then x := 10 else x:=20;
writeln (х);​

10

Объяснение:

Если выполнять задачу поэтапно, то:

- a mod b = 20 mod 40 = 20;

- b - a = 40 - 20 = 20;

- 20 = 20, значит x = 10.

Будет выведено 10.

var a: integer; beginreadln(a); write (a div 10); end.

по углам комнаты расставить 4 стула и   около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )