Var r,L,S:real;
begin
read (r);
L:=2*3.14*r;
S:=4*3.14*r*r;
write('длина...=',L);
write('площадь...=',S);
End.
2048 в байт 2048Кбайт
12288 бит 12288 Кбайт
8000 бит 1000 байт
Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.
Взвешиваем две любые монеты- Чашки в равновесии -Да Третья монета фальшивая-Нет Фальшивая монета в более легкой чашке