предположим, что в начальном тексте было Х страниц, тогда:
Х*32*64*2 - Байт = 4*Х Кбайт весил текст
4Х=2 Мбайт = 2048Кбайт(по условию)
Х=512 Страниц
Значит в отредактированном - 512-2 = 510 Страницы
510*32*64*2=2088960 Байт = 2040 Кбайт
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.
27(10)=17
4f(16)=117
Там делить нужно столбиком дели на 16 и все получиться :3
Var a:integer;
begin
repeat
// число, которое надо ввести - 47
writeln('Введите двузначное число');
readln(a);
until a<>47;
writeln('Введенное число ', a);
end.