var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.
Sub aaa()
Const n = 50
Dim a(1 To n) As Double, Zero As Boolean
Randomize Timer
For i = 1 To n
a(i) = Int(21 * Rnd - 10)
Next i
k = 0: Zero = False
For i = 1 To n
If a(i) = 0 Then
Zero = True
Exit For
End If
Next i
If Zero Then
MsgBox "Количество членов последовательности равно " + CStr(i)
Else
MsgBox "В последовательности нет нулей"
End If
End Sub
2048=2^11 1536 = 1,5*1024=1,5*2^10
F = 3*2048*1536 =
=3*1,5*2^10 *2^11 (байт) =4,5*2^11 Кбайт =4,5 *2 Мбайт =9 Мбайт
55 символов * 65 строк * Х страниц - всего символов в пачке с текстом...
Дискета вмещает 1,44 Mb информации.
x= 8*1,44 Mb/(55*65)= 8*1,44*1024*1024/(55*65) страниц= и получилось приблизительно 3406 страниц.
(Замечание:мы предположили, что 1 символ кодируется 8 битами, если это не так, задачку )... придется пересчитывать...
Проверьте, пожалуйста, мою арифметику, а то я уже Спю - в Сибири - 9 часов...