Вот это наверно) Если менять числа, значение площади меняется. Только нужно подбирать специальные числа, чтоб под квадратным корнем не было отрицательного числа)
На сколько информация доступна пользователю и на сколько она ему понятна
Var a,b,c: integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
<span>a = 2 b = 0 c = 1</span>
Var A,S:real;
n:integer;
Begin
Write('n = ');
Read(n);
a:=10;
For n:= 1 to n do
Begin
a:=a*1.1;
S:=S+a
End;
WriteLn(S)
End.