Число 1810=100102 в восьмиразрядном представлении имеет вид

5`120`000 бит =  640 000 байт = 625 кб

радиосвязь!

попов!

то что подчеркнуто на минимальный возвраст группы заменить.

? "введите возвраст человека"

input a

if a> пенсионер then 1 else 2

1 ? "группа пенсионеров" : goto 10

2 if a> работник then 3 else 4

3 ? "группа работников" : goto 10

4 if a> ученик then 5 else 6

5 ? "группа учеников" : goto 10

6 ? "группа дошкольников"

10 end

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.