3)0+7=7
4)7+7=14
5)14+7=21
6)21+7=28
7)28+7=35
8)35+7=42
<u><em>Задание 1</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var x:=ReadReal('x-');
if x<-1 then Writeln(x*x+1)
else
if x<2 then Writeln(abs(x+5))
else
if x<5 then Writeln(1/(x-4))
else Writeln(sqrt(x+6*x))
end.
<u><em>Задание 2</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a,b,c:real;
Write('Введите стороны треугольника: ');
Read(a,b,c);
Write('Треугольник ');
if (a=b) and (b=c) then Write('равносторонний')
else begin
if (a=b) or (b=c) or (a=c) then Write('равнобедренный ');
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or
(b*b+c*c=a*a) then Write('прямоугольный')
else Write('непрямоугольный')
end;
Writeln;
var p:=(a+b+c)/2;
Writeln('Площадь равна ',sqrt(p*(p-a)*(p-b)*(p-c)))
end.
Флешка и SD карта т.к. свободного места у них больше чем 320 байт
<h2>Уточнение</h2>
Если в выражении z:= (z + x/2)/2 всё-таки сначала высчитывается (z + x), а потом делится на 4, то ответ будет другой.
Но также влияет на ответ то, какой тип у x и z. Если они оба int, то дробная часть отбрасывается и в ответе получится также, если же тип double или float, то ответ будет другим.
<h2>Ответ</h2>
x = 39
z = 1, i = 0
z = (z + x/2)/2 = (1 + 39/2)/2 = 10.25
i = 0 + 1 = 1
1 < 4 - да
...
z = (10.25 + 39/2)/2 = 14.87500
i = 2
2 < 4 - да
...
z = (14.87500 + 39/2)/2 = 17.1875
i = 3
3 < 4 - да
...
z = (17.1875 + 39/2)/2 = 18.34375
i = 4
4 < 4 нет
<h3>z = 18.34375</h3>
3.5 кб переводим в биты=3,5*1024=34304 байта
в печатном символе 8 бит как раз 1 байт
Ответ 34304 символа