Десять итераций увеличения s на 2
s = 20
<u><em>Задание 2.</em></u>
// PascalABC.Net 3.0, сборка 1064
function f(x,z:double):double;
begin
if (x>z) and (z>1) then Result:=(x-z)/(z-1)
else
if (x<=0) and (z<0) then Result:=2*x*z
else Result:=x+1
end;
<u><em>Задание 3.</em></u>
// PascalABC.Net 3.0, сборка 1064
var
a,b,c:real;
begin
Write('Введите длины сторон треугольника: '); Read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний, площадь ',a*a/4*sqrt(3))
else
if (a=b) or (a=c) or (b=c) then
Writeln('Треугольник равнобедренный, периметр ',a+b+c)
else
Write('Треугольник разносторонний, самая короткая сторона ',
min(a,min(b,c)))
end
end.
<u><em>Тестовые решения:</em></u>
Введите длины сторон треугольника: 5 3.7 6
Треугольник разносторонний, самая короткая сторона 3.7
Введите длины сторон треугольника: 4 6 4
Треугольник равнобедренный, периметр 14
Введите длины сторон треугольника: 5 5 5
Треугольник равносторонний, площадь 10.8253175473055
1. Вопрос.
79 = 1001111
444 = 110111100
2. Вопрос.
101000 = 40
10101011 = 171
3. Вопрос.
3 приложение превышает объем 15 мб
0.5 гб переведем в мегабайты 0.5*1024=512 мб
Ответ: Нет.
4. 545,6Кб=545,6*1024=558694.4Байт;
0,756Гб=0,756*1024=774.144мб, 774,144*1024= 792723.456Кбайт;
456789Б=456789/1024=446.08КБайт, 446.08/1024= 0.43Мб)
5. Музыкальныйклип = 15 символов
принято считать 1 символ 1 байт
1*15= 15 байт фраза занимает.
15*8= 120 бит
Ответ: 15 Байт, 120 бит
4,3,8,2,6,9,5 ⇒ <span>4,3,4,2,3,4,5 </span>⇒ 3, 3, 5