Програмисты , разроботчики приложений и игр
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
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
В нулевой строке 1 буква D
В первой две (нулевая удвоилась и дописали A, а не D)
Во второй 4 (дописали B), в третьей 8 (C), в четвертой 16+1=17 (дописали D в конец), дальше №5 - 34, №6 - 68, №7 - 136, №8 - 272.
Ответ. 272.