Похоже, что вопросов с номером один не возникает. Тогда можно на месте формулы написать формулу в формате: "=ЕСЛИ(A1>0;вторая формула;первая формула)". На месте A1 стоит значение x
Очевидно архмв поврежден.
Либо архиватора нет =)
Если он все же есть, попробуй убедиться в том, что архив поврежден.
1.Запусти архиватор (просто саму программу)
2.Найди через программу файл с архивом и выдели его.
3.Нажми кнопку "Тестировать" или "Проверить" или что то в этом роде.
Если повалятся ошибки в появившемся окне, то архив порченый, если ни одной ошибки не появится, то проблема не в этом.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
Одна тонкость - разность первых 2-ух чисел это из первого вычитаем второе или из второго первое?
Program Chisla;
Uses Crt;
var a,b,c,d,sum:real;
begin
clrscr;
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвёртое число: ');
readln(d);
sum:=a+b+c+d;
if ((a-b)>d) and (sum<=80) then writeln(c,d)
else
if (a-b)>d then writeln(a,b,c,d)
else
if (sum<=80) then writeln(a,b)
else writeln(a+5,b+5,c+5,d+5);
readkey;
end.