Var a,S:integer;
Begin
Writeln("Введите сторону квадрата a");
Readln(a);
S:=sqr(a);
Writeln("Площадь квадрата S=",S);
readln;
end.
Граф приведен во вложении. Кратчайший путь выделен красным цветом, его длина составляет 2+1+2=5
Допустим, мы выбрали число 26
1. 26*26=676
2. 676+26+26=728
3. 728/26=28
4. 28-26=2
В ответе всегда будет получаться число 2 из-за того, что во втором пункте мы дважды прибавляем задуманное число
Что надо делать там вапросы ???
Var s:integer;
begin
writeln('Введите площадь квадрта');
readln(s);
writeln('Сторона квадрта = ',sqrt(s));
writeln('Периметр квадрта = ',sqrt(s)*4);
end.