Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.
1) ЭНЦИКЛОПЕЦИЯ КОРОЛЕВСТВО
там через каждую букву читать
2)Рибонуклеиновая кислота
Телефонный разговор
Для решения задачи следует использовать формулу i = log(2)N (или N = 2^i).
Объем памяти для кодирования 1 пикселя = log(2)65536 = 16 бит = 16/8 байт = 2 байта
Var
s: string;
rus, eng, cif: set of char;
i, r, e, c: integer;
begin
rus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];
eng := ['A'..'Z', 'a'..'z'];
cif := ['0'..'9'];
write('Введите текст: ');
readln(s);
for i := 1 to length(s) do
begin
if s[i] in rus then inc(r);
if s[i] in eng then inc(e);
if s[i] in cif then inc(c)
end;
writeln('Русских букв: ', r);
writeln('Английских букв: ', e);
writeln('Цифр: ', c)
end.