Определить, какие целые числа предшествуют числам. с объяснением
1. 1001 (2)

2. 110 (8)

3. 341 (10)

2)

var a,b,c: integer;

begin

  read(a,b,c);

  writeln('3 - ',100-a-b-c);

end.

3) много писанины. вообщем длина стороны считается d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))

площадь находится по формуле герона

4)var a: integer;

begin

  read(a);

  writeln('plowad grani = ',a*a);

  writeln('plowad polnoj pov= ',a*a*6);

  writeln('objem= ',a*a*a);

end.

1шаг влево

2шага вниз

1шаг направо

1шаг вверх

1шаг влево

если с поворотами то примерно так:

1шаг влево

повернуться против часовой стрелки

2 шага прямо

повернутся против часовой стерлки

1шаг прямо

повернуться против часовй стрелки

1 шаг прямо

повернуться против часовй стреки

1 шаг прямо

они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.

расширение от имени отделяется точкой