Uses crt;
var x,y,z:real;
begin
read(x,y,z);
if x+y+z>x*y*z then
writeln(x+y+z)
else
writeln(x*y*z);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-56,26); a.Println
end.
<u>Пример</u>
n= 13
10 19 20 0 2 14 -16 -48 0 7 -51 19 -22
<em>Ограничение на размер массива (n) - только здравый смысл.</em>
Объяснение:
Школа на шифре Цезаря – Щлпмб.
<u>// PascalABC.NET 3.4, сборка 1766 от 25.08.2018
</u>
begin
var a := new HashSet<integer>(ReadArrInteger('Множество A ->', ReadInteger('Размер множества A =')));
var b := new HashSet<integer>(ReadArrInteger('Множество B ->', ReadInteger('Размер множества B =')));
a.Except(b).Print; Println(' - A\B');
b.Except(a).Print; Println(' - B\A');
a.Intersect(b).Print; Println(' - пересечение A и B');
a.Union(b).Print; Println(' - объединение A и B');
end.
<u>Пример ввода/вывода в приложении.</u>
Ответ:сигнал
Объяснение:читаешь задом наперед лиса получается асил убераешь первую и последнюю букву получилось СИ потом смотрим дальше показанно г на л всего СИГНАЛ
