Begin
randomize;
writeln('Для молодёжи: ', 1 + random(100));
writeln('Для взрослых: ', 101 + random(100));
writeln('Для стариков: ', 201 + random(50));
end.
Полностью не уверена, но, скорее всего, только одна программа. Т.к. при приобразовании числа 35 в 37 мы имеет право использовать только первую команду (использовав вторую полнучиться слишком большле число, которое мы уже не сможем уменьшить другой командой).
8=3бит
32=5бит
64=6бит
128=7бит
256=8бит
524=9бит
1024=10бит
Смотри файл целая часть и дробная переводятся отдельно
Ответ:
Я разбили это задание на четыре номер и во втором вы дали не полное условия