В плей марките там это есть точно
Послушайте сообщение - это побудительное предложение, значение истинности (0 или 1, ложь или истина) установить нельзя.
Какой сегодня день? Вопросительное предложение, объяснение аналогичное.
К - 00
Л - 01
О - 1000
Нам нужно слово "АВТОЛАВКА". В нём несколько букв "А" и несколько букв "В", значит для них нужен нам минимальный код.
Для А возьмём 11. А - 11.
Для "В" возьмём 1010, так как он самый короткий, меньше взять никак не можем.
Остаются две буквы. "Т" и "Ц".
Т - 10110
Ц - 10111
АВТОЛАВКА, 3 буквы А, 2 буквы В.
3 * 2 + 4 * 2 + 5 + 4 + 2 + 2 = 27
Ответ: 27
Var
a1,a2:integer;
begin
writeln('Введите а1');
read(a1);
writeln('Введите а2');
read(a2);
a1:=sqr(a1);
a2:=sqr(a2);
if a1>a2 then
writeln('Площадь а1 больше')
else
writeln('Площадь а2 больше');
end.
/////////////////////////////