В пароле используется 13+10=23 различных символов
Для кодирования 1 символа необходимо log(2)23≈5 бит
Для хранения 1 пароля: 8*5 = 40 бит = 40/8 байт = 5 байт
Для 80 паролей: 80*5=400 байт
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
Если первая буква гласная, то удалить её и вывести полученное, а если согласная, то просто вывести.