Ответ:подставь под формулу ax²+bx+c=0
D=b²-4*a*c=(корень числа)
x1=-b+√D/2*a
x2=-b-√D/2*a
Объяснение:
1. program
HelloWorld;
var summ,i
:integer;
begin
i:=2;
while i<=200 do
begin
summ := summ + i;
i:=i+2;
end;
writeln(summ)
end.
2.
program
HelloWorld;
var S,i,n:
integer;
begin
<span> while i<6 do</span>
<span> begin</span>
<span> writeln('</span>Введите значение число:');
<span> readln(S);</span>
<span> if S mod 2 = 0 then n:=n+1;</span>
<span> i:=i+1;</span>
<span> writeln(n);</span>
<span> end;</span>
<span> </span>writeln('Количество
четных:');
writeln(n);
end.
Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.
Один эффект (= одному файлу) :
Э = 2*44*1000*16* 10 бит =2* 4*11 * 8*125 * 2*5 =
=11*125*5 *2^7 бит =11*125*5*2^4 байт =110 000 байт
D=4,4 Гбайт =4,4 *2^30 байт =4,4 * 1 073 741 824 =4 724 464 026 байт
K=D/Э =42 946 эффекта (файла) на одном диске.