Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40
<span>A = (5 < 10) = true
B = (2 = 2) = true
С = (4 < 2) = false
</span><span>(A and B) or C ↔ (A or C) and (A or not B) </span>⇒
(true and true) or false ↔ (true or false) and (true or not true) ⇒
true or false ↔ true and true ⇒
true ↔ true ⇒
true
INPUT "x=", x
PRINT 1 - 2 * x + 3 * x ^ 2 - 4 * x ^ 3
PRINT 1 + 2 * x + 3 * x ^ 2 + 4 * x ^ 3
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
x=2.37
-40.1375
75.83891
Например, пластинка для граммофона.