Uses crt;
var xA,xB,yA,yB,D: real;Begin
clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB); d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
writeln('Длина отрезака AB = ',d:0:3)
End.
64 = 2^6, поэтому на 1 символ отводится 6 бит.
Всего символов на странице 40 * 60, на трёх страницах — 3 * 40 * 60, объем информации в битах равен 6 * 3 * 40 * 60.
В одном байте 8 бит, значит, количество информации 6 * 3 * 5 * 60 байт = 5400 байт.
Ответ. 5400 байт
Я думаю, не уверен, что это А
Поскольку 17 простое нечетное число его обнулили, и 17 не делится ни на что кроме себя и 1
Var a,b,c,i,n: integer;
begin
write('n = ');
readln(n);
a := 0;
write(a,' '); b := 1; write(b,' ');
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c
end;<span>end.</span>