Аня-туристка
Боря-художник
гриша-футбол
дина-певица
вася-танцор
Program prog;
Uses crt;
var m: integer;
label l1;
Begin clrscr;
l1: write('Введите номер месяца = ');
readln(m);
case m of 1,3,5,7,8,10,12: writeln('31');
4,6,9,11: writeln('30');
2: writeln('28/29');
else
begin
writeln('Непривильный номер месяца');
writeln;
goto l1;
end;
end;
readln;
End.
Ответ: 22
Объяснение: Умножаем кол-во раз сколько встречается буква в слове на количество символов сколько оно имеет (нули тоже считают)
Я решала сама и нигде не нашла ответа, если кто-нибудь сверится со мной было бы круто
Примерно так рисуются круги Эйлера