1. Диск
2. Ухо
3. Дом
4. Лупа
5. Ель
6. ...
7. Телефон
8. ....
9. ...
Все слово: Компьютер
Фото нет.
Вот моё старое решение с решетом Эратосфена.
https://pastebin.com/KqUn47Hn
<span>1010101(2)+10000101(2) = </span>011011010(2)
Var
a,b,c:integer;
begin
Write('Введите три целых числа: '); Readln(a,b,c);
if a>b then
if b>c then Writeln(a*b) else Writeln(a*c)
else
if a>c then Writeln(a*b) else Writeln(b*c)
end.
<em><u>Тестовое решение:</u></em>
Введите три целых числа: 5 -2 7
35