Program q3; var: a,b,c,D,x1,x2: real;(вводим переменные) readln(a); readln(b); readln(c);(считываем переменные с клавиатуры) D:=b*b-4*a*c;(формула дискриминанта) if(D<0) then writeln('нет решений');(проверяем дикриминант меньше 0) if(D=0) then do begin x1:=-b/2*a; writeln(x1); end; if(D>0) then do begin x1:=(-b+sqrt(D))/2*a; x2:=(-b-sqrt(D))/2*a;(находим корни) writeln(x1); writeln(x2); end; end.
3072 / 1024 / 1,5 = 2 байта на символ. 16 битов, т. е. Итого: 2^16 = 65536 символов.
N=2^i
16=2^i
i=4 бита на 1 символ в первом случае
8=2^i
i=3 бита на 1 символ во втором случае
Количество символов в сообщении неизменно
4k-3k=800
k=800 количество символов
1) program _1;
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
Можно найти в ноутбуке папку такую "Удаленные файлы", удаляешь, стираешь эти файлы, и удаляешь их из корзины. Или скачать программу, которая удаляю файлы, которые ты выбрал, а потом удаляй саму программу