<h3>// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var y: real;
if x < 0 then y := x * x - 3 - (Pi - x) ** (1 / 3)
else
if x < 1 then y := Sqr(x * x + 3) - Sqrt(0.5 * Pi + x)
else y := x * (x * x + 3) + Ln(Pi + x);
Println('y =', y)
end.
Открыть один текстовый файл, нажать на клавиатуре CTRL+A (Правка - Выделить всё), потом нажать CTRL+C (Правка - Копировать). Открыть второй текстовый файл, нажать CRTL+V (Правка - Вставить) и сохранить полученный файл.
Сравниваешь a и b, большее\меньшее сохраняешь как x
сравниваешь x и с, большее\меньшее сохраняешь как x
x-твое искомое число
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:= ReadInteger('n =');
var tmp := n;
var sum := 0;
while (tmp > 0)do
begin
sum += tmp mod 10;
tmp := tmp div 10;
end;
tmp := (sum div 2) + 1;
while (tmp > 1) do
begin
if (sum mod tmp = 0) then
begin
Writeln(tmp);
halt;
end;
dec(tmp);
end;
Writeln('Not Found, sum is simple number');
end.
Информация своевременно (вовремя) доставлена - <span>2)актуальность</span>