Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.
Для решения задачи используем формулу I =
Вероятность взять перец = 8/16 = 1/2. Количество информации в сообщении о том, что взят перец I1 = log(2)[1/(1/2)] = log(2)2 = 1 бит
Вероятность взять огурец = 4/16 = 1/4. Количество информации в сообщении о том, что взят огурец I2 = log(2)[1/(1/4)] = log(2)4 = 2 бита
Вероятность взять баклажан = 2/16 = 1/8. Количество информации в сообщении о том, что взят баклажан I3 = log(2)[1/(1/8)] = log(2)8 = 3 бита
Для редиса I4 = I3 = 3 бита
Если вводится натуральное двузначное число:
var n,s:integer;
begin
write('n = ');
readln(n);
s:=(n div 10)+(n mod 10);
writeln('s = ',s);
if s mod 3 = 0
then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Пример:
n = 56
s = 11
Сумма цифр не кратна 3
Каталог (как то так,напишу еще че нить,ибо так 20 символов)
Ам, ну там сверху есть "выравнивалки"
Попробуй поэкспериментировать с полосками ("выравнивалками")