Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8
<span>БЕГ
– бог – бок – бак – мак – маг – ШАГ</span>
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
Ответ:
Объяснение:
Плохо, что не нарисовали стрелки маршрутов. Поэтому ABCDEFG маршрут может и не быть.
ABFG
ABFEG
ABCDEFG
ABCDEG
ACDG