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
Следует четырежды повторить следующую группу действий:
1) закатить в нишу ближайший к ней черный шарик
2) перекатить все шарики в левую часть желоба
3) перекатить все шарики в правую часть ниши
4) перекатить все шарики в правую часть ниши
5) выкатить черный шарик из желоба
Вот для пальцев физкультура
С буквами ....... (клавиатура
Не зверушка не летаешь
а по коврику скользишь
курсором управляешь
ты – компьютерная...(мышь.)
Долго сочиняла
вот простые вопросы
на него мы смотрим, на столе стоит программы открывает. монитор
Сохраняет все секреты
*ящик* справа возле ног
и слегка шумит при этом
Что за *звер?* ситем блок