Написать программу решения ребуса: КУБ=(К + У + Б)^3 . При решении ребусов
одинаковым буквам соответствуют одинаковые цифры.
паскаль

k= 2 в степени а

a=глубина цвета

m=количество точек по горизонтали

n=количество точек по вертикали

k=количество цветов

v=объём видеопамяти

k=16 777 216   =2 в 24 степени

a=24

v  =  m  ×  n  ×  a 

v=(1024×768×24)/(8×1024×1024)=2,25 мб

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

в этом варианте представлен алгоритм без обратной связи, так как алгоритм представляет собой только однозначную последовательность команд. 

такой алгоритм является линейным, или последовательным. то есть в нём отсутствует   процесс передачи информации о состоянии объекта к объекту.

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

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

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