50 Кбайт=51200 Байт = 409600бит
409600÷16÷40=640 бит на 1 строку
640 ÷ 16=40 символов
Ответ: на одной строке 40 символов.
Function VectorLength(x, y: real): real;
begin
VectorLength := sqrt(x * x + y * y);
end;
var
x1, x2, y1, y2: real;
begin
readln(x1, y1);
readln(x2, y2);
if VectorLength(x1, y1) > VectorLength(x2, y2) then
writeln('Point1')
else writeln('Point2');
end.
1) 64 мегабайта
2 в 29 возвели на калькулятор калькуляторе, затем дели на 8, на 1024 и снова на 1024, так переведешь в Мб
2)боюсь, ты не захочешь знать ответ. 33554432 бита. 4*1024*1024*8
Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>