Ну вроде как от компьютера. Информация кодируется двоичным кодом, из нулей и едениц.
Усилители звука, очки, протезы!
1) (X>0) ∨(Y>0) ∨ (Z>0)
2) (X>0)∧(Y≤0)∧(Z≤0) ∨ (Y>0)∧(X≤0)∧(Z≤0) ∨ (Z>0)∧(X≤0)∧(Y≤0)
3) (X>10)∧(Y≤10)∧(Z≤10) ∨ (Y>10)∧(X≤10)∧(Z≤10) ∨
(Z>10)∧(X≤10)∧(Y≤10)
4) (X≠104) ∧ (Y≠104) ∧ (Z≠104)
Первый вариант:
Var
A:real;
k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.
Var k:integer;
S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.
Пример работы программы:
Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.
Првый компьютер вышел в 1958