Вы можете использовать алфавит из двух символов: А и Б. Сколько разных трехсимвольных слов существует в этом алфавите? Для ответа на вопрос постройте схему. Выпишите все слова, начинающиеся на букву Б.



​

понадобится 24 секунды.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.