var r:real;
begin
write ('Введите радиус окружности: ');
read(r);
writeln ('Диаметр равен: ', r*2:0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.
1.А) отметка ученика в журнале показывают уровень усвоения знаний
Выпишем числа Фибоначчи, не превышающие 46, в обратном порядке:
34, 21, 13, 8, 5, 3, 2, 1.
Для перевода в Фибоначчиеву систему счисления представим каждое переводимое число в виде суммы чисел Фибоначчи, а затем заменим использованные в записи числа единицами, а неиспользованные - нулями.
41=34+5+2 -> 10001010
46=34+8+3+1 -> 10010101