<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>begin
var d:=ReadReal('Диагональ прямоугольника');
var S:=ReadReal('Площадь прямоугольника');
var Di:=sqr(d*d)-4*S*S;
if Di<0 then Writeln('Неверные данные')
else begin
var b:=sqrt((d*d-sqrt(Di))/2);
var P:=2*(S/b+b);
Writeln('P=',P:0:4)
end
end.
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
1) У современного персонального компьютера в десять раз больше мощности, чем в свое время потребовалось, чтобы запустить и посадить человека на Луну.
2) Объема CD-диска хватает на 72 минуты звучания музыки. Именно такую продолжительность должна девятая симфония Бетховена, на которую ориентировались создатели нового продукта.
3) Нам достаточно доли секунды, чтобы оценить качество сайта, на который мы зашли.
4) Китайским геймерам запрещено играть в игры, которые пропагандируют убийства, — например, в «GTA» или «Postal». Не жалуют в Поднебесной и хакеров: им грозят серьезные тюремные сроки, а в 1998 году парочка взломщиков даже была приговорена к высшей мере наказания.
5) Хакеров, конечно, не стоит защищать — преступники информационного пространства. Но также не забываем о себе любимых. Некоторые аккаунты, электронные адреса и другие личные страницы интернет-пространства так и просятся, чтобы их сломали! Самыми популярными паролями считаются цифры в возрастающем или убывающем порядке, а также дата, месяц и год рождения. Многие пользователи настолько беспечны, что даже вводят в окнах «логин» и «пароль» один и тот же набор символов.
Pogram ypr;Var s:string;p:integer;beginreadln(s);p:=pos(' ',s);delete(s,2,p);writeln(s);end.
Var a,b,h:integer;
begin
read(a;h);
write(a^a+2*a*sqrt(a^a/4+h*h));
wrteln((h*a*a)/3);
end.
