var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
H 01000010 линия(2,1,2,8)
01000010 линия(2,4,7,4)
01000010 линия(7,1,7,8)
01111110
01000010
01000010
01000010
01000010
Л 00011000 линия(1,8,4,1)
00011000 линия(8,8,5,1)
00100100
00100100
01000010
01000010
10000001
10000001
Т 11111111 линия(1,1,8,1)
00011000 линия(4,8,4,1)
00011000 линия(5,8,5,1)
00011000
00011000
00011000
00011000
00011000
{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать}
var
min,max,a:real;
begin
readln(a);
min:=a;max:=a;
while a<>0 do
begin
readln(a);
if a>max then
max:=a;
if a<min then
min:=a;
end;
writeln('min: ',min,' max: ',max);
<span>end.</span>
Решается на обычном калькуляторе
1) 1011100010110 (если из десятиричной)
2) 4DC6 (если из десятиричной)
3) 266306 (если из восьмеричной)
1) 1112124
2) 1023144144
3) 4016