var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
Var a,b,c,p:real;
Begin
//Формула Герона
p:=(a+b+c)/2;
a:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(a:2:3);
end.
Всего требуется 3 битов нужно использовать для дискретизации такого сигнала.
Var
a,b:integer;
begin
Write('Введите два трехзначных числа: '); Readln(a,b);
Write('Результат: ',1000*a+b)
end.
<u>Тестовое решение:</u>
Введите два трехзначных числа: 165 718
Результат: 165718
Отгадка Комар
А часть коробля:корма