Считаем буквы А, Д и Р цифрами 0, 1 и 2 троичной системы счисления.
Итого нам нужно перевести 200000 в десятичную. Итак, 3^5 * 2 = 486.
Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray();
a.Transform(x->x*x);
write(a.Sum());
end.
Ответ:
Вариант Б быстрее на 2 с.
Объяснение:
5 Мбайт = 5×2²⁰ байт = 5×2²³ бит.
1) по варианту А.
Сжали вдвое, получили объем 5×2²² бит. Время передачи составит
(5×2²²) / 2²⁰ = 5×2² = 20 с.
Общее время 20 + 20 +2 = 42 с.
2) по варианту Б.
Время передачи (5×2²³) / 2²⁰ = 5×2³= 40 с.
Вариант Б быстрее на 2 с.
Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.