// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
procedure F(n: integer);
begin
if n < 6 then
begin
write(n);
F(n * 2);
F(n + 2)
end;
if n < 5 then
begin
write(n + 1);
F(n + 2)
end
end;
begin
var n := ReadInteger;
F(n)
end.
Я еще не студент!!!Понимаете мне еще 12 то нет!!!А баллы заработать хочется.
В компьютерной системе есть возможность подключать новые устройства ввода,вывода,память компьютера,заменять старые устройства на современные,неисправные - на работающие.
В 1 байте 8 бит, значит 4*8=32бита