Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
216 в
217 е
218 а
219 в
220 а
221а 222 с 224 е 225 а 226 а 229 D 231 а 232 а 233 с 234 е
в облочке DOC не заню
Форумула нахождения объема файла по скорости и времени:
I = v*t, из этого следует что I = 2400000*1 = 2400000 бит.
После нахождения массы в битах, находим ее в магабайтах:
I = ((2400000/8)/1024)/1024 = ~0,29 МБ
Ответ: ~0,29 МБ
Function sq(var x1,y1,x2,y2,x3,y3: real):real;
<span>begin
</span><span>// вычисляем площадь с помощью
</span><span>// векторного произведения
</span><span> sq:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
</span><span>end;
</span><span>// основная программа
</span><span>var x1,y1,x2,y2,x3,y3,x4,y4,s:real;
</span><span>begin
</span><span> write('координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: ');
</span><span> readln(x1,y1,x2,y2,x3,y3,x4,y4);
</span><span> s:=sq(x1,y1,x2,y2,x3,y3)+sq(x1,y1,x4,y4,x3,y3);
</span><span> writeln('площадь четырехугольника S = ',s);
</span><span>end.
</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: 2 2 4 4 7 4 6 2
<span>площадь четырехугольника S = 7
</span>