1) (2+sqrt(abs(A-B)))/(B*C+A)
2) a=20; b=5; x=140; x=14;
ответ: х=14
3)
var
A, H, S: real;
begin
Write('Введите А и Н: ');
Readln(A, H);
S := A * H / 2;
Writeln('S=', s:0:4)
end.
Тестовое решение:
Введите А и Н: 5.4 2.75
S=7.4250
1. Значение переменной m меняется в цикле следующим образом: -3, -6, -9.
Ответ: -9
2. Значение переменной m меняется в цикле так: -5, 4.
Ответ: 4
А= 247(8)=167(10)B = A9(16)=169(10)a.10101100(2) = 172 (10)
b.10101010(2) = 170 (10)
c.10101011(2) = 171 (10)
d.10101000(2) = 168 (10)
Ответ: d.10101000(2)
Program z1;
var a:array[1..25] of integer;
Hmax,Hmin,i,R:integer;
begin
for i:=1 to 25 do readln(a[i]);
Hmax:=a[1];
Hmin:=a[1];
for i:= 1 to 25 do
begin
if Hmax<a[i] then Hmax:=a[i];
if Hmin>a[i] then Hmin:=a[i];
end;
R:=Hmax-Hmin;
writeln(R);
end.