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
Вот тебе пример)
while not EOF(FTemp) do
begin
ReadLn(FTemp, S);
WriteLn(FT, S)
end;
{ Закрытие входного файла }
Close(FT);
{ Усечение размера временного файла до 0 }
Rewrite(FTemp);
{ Закрытие временного файла }
Close(FTemp)
end;
В идентификаторе 2 буквы и 8 цифр.
Мощность алфавита букв равна 18, для кодирования 1 буквы требуется 5 бит, т.к. 2^5=32 (четырёх бит недостаточно).
Для кодирования 1 цифры требуется 4 бита, т.к. всего 10 цифр, 2^4 = 16 (чего достаточно для хранения 10 цифр, в отличие от 3-х бит).
Объем одного пароля равен 2*5+8*4 = 10+32 = 42 бит
42 : 8 = 6 Байт (пяти байт недостаточно).
25 * 6 = 150 байт.
Ответ:
program n1;
var time, seconds, minutes, hours: integear;
begin
readln(time);
seconds := time mod 60;
time := (time - seconds) / 60;
minutes := time mod 60;
time := (time - minutes) / 60;
hours := time;
writeln (hours, ' часов ', minutes, ' минут ', seconds, ' секунд');
end.
Объяснение:
Написано на языке Pascal