Задача Паскаль ABC.NET .Иван Петрович надел новые штаны и сел ** только что окрашенную...

Question

Задача Паскаль ABC.NET .
Иван Петрович надел новые штаны и сел на только что окрашенную табуретку . На его штанах появилась квадратное пятно зеленого цвета, длина стороны A см. Оказалось ,что в химчистку берут одежду пятна на которому пятно не больше за S см ². ВыЯснить ,удалось ли Ивану спасти свои штаны.

Comments

Var A,S:real;BeginWrite('A = ');ReadLn(A);Write('S = ');ReadLn(S);if A*A<=S then Write('Удалось')else Write('Не удалось')End.

---

спасибо)

Answer 1

Var a,s:real;
begin
write('Введите сторону а: ');
readln(a);
write('Введите площадь S: ');
readln(s);
if (a*a>s) then writeln('Штаны не спасены(') else writeln('Штаны спасены)')
end.