Program b_3;
const Pi=3.1415926;
var R,S,C:real;
begin
write('введите радиус окружности');
readln(R);
C:=2*Pi*R;
S:=Pi*R*R;
writeln('длина окружности=',C:6:2);
writeln('площадь круга=',S:6:2);
End.
В 2 раза
....................................
Сочинение о мини ноутбуках, :Однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. Но однажды я пролил на него воду я думал всё больше не будет у меня нетбука ,я растроился. Мама сказала какой ты не уклюжий и так далее
//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр Size. В него нужно будет записать количество символов в строке
Program Test;
const Size = 19;
Var i, tmp: integer; Str, Resultat: string;
Begin
Str := 'yoonmin_in_my_heart';
for i := 1 to Size do
begin
tmp := ord(Str[i]);
Resultat := Resultat + tmp
end;
Writeln(Resultat);
End.
1001011 =
=<span> 64 + 0 + 0 + 8 + 0 + 2 + 1 = 75</span>