Var x,y:longint;
Begin
Readln(x);
Y:=y-2*x;
Writeln(y);
End.
<h2>Ошибка</h2>
Знак "больше или равно" пишется в том же порядке, что и читается
Сначала знак больше потом равно
" >= "
<h2>Исправление ошибки</h2>
Заменить 16 строку " if(D=>0) then "
На " if(D>=0) then "
Ответ:
¬A ∨ B ∧ ¬C (первый)
Объяснение:
¬(A ∧ (¬B ∨ C))
Применим закон де-Моргана
¬A ∨ ¬(¬B ∨ C)
Еще раз:
¬A ∨ B ∧ ¬C
Дальше не упрощается, смотрим варианты ответов.
Подходит первый.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadInteger('Введите трехзначное число:');
var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
if b+c<>0 then
if x mod (10*b+c)=0 then begin
Writeln('Вычеркнуть первую цифру (',a,')');
Exit
end
else
if a+c<>0 then
if x mod (10*a+c)=0 then begin
Writeln('Вычеркнуть вторую цифру (',b,')');
Exit
end
else
if a+b<>0 then
if x mod (10*a+b)=0 then begin
Writeln('Вычеркнуть третью цифру (',c,')');
Exit
end;
Writeln('Нет решения')
end.