Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x,y: real;
begin
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
end.
не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.
16-битной кодировке unicode.
один символ s =16 бит
количество бит текстового файла к= 51200 бит/с * 10 с= 512000
количество символов к/s=512000/16 =32000
var x: array[1..10] of real; n: integer; begin for n: =1 to 10 do begin x[n]: =power(3,n)-5; writeln(x[n]); end; end.
вот программа.
Популярные вопросы