1)
var x, y, z, P, S: integer;
begin
readln(x, y, z);
P := x * y * z;
S := x + y + z;
writeln(P);
writeln(S);
end.
2)
var a, b: integer; k: real;
begin
readln(a, b);
K := sqrt(sqr(a)+sqr(b))+((a+b)/2);
writeln(K);
end.
Помогите решить задачу в паскале.Даны три массива:A = {17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3},B = {-1.2, 4
Extorned
Type
V = array of real;
function SumPos(a:V): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 0 to Length(a, 0) - 1 do
if a[i] > 0 then s := s + a[i];
Result := s
end;
var
A, B, C: V;
begin
A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
writeln('Сумма положительных элементов массива А ',SumPos(A));
writeln('Сумма положительных элементов массива B ',SumPos(B));
writeln('Сумма положительных элементов массива C ',SumPos(C));
end.
Тестовый прогон:
Сумма положительных элементов массива А 63.5
Сумма положительных элементов массива B 70.3
Сумма положительных элементов массива C 27.2
Так как в результате первого сложения должно получиться <u>трехзначное число</u>, то нетрудно предположить, что три одинаковые цифры -<u> три девятки</u>.
99+9=108
Соответственно:
X=9
B=0
A=1
C=8
Подставляем во второе выражение и решаем:
4*9+3*0+2*1+8=36+2+8=46
Ответ: 46
<span>B3 (16) = 179 (10)
126 (8) = 86 (10)
86 + 179 = 265 (10) = 109 (16) = 411 (8) = 100001001 (2)
Можно такие вещи в калькуляторе считать. Выбираешь вид - Программист. А потом выбираешь систему счисления Hex - 16, Dec - 10, Oct - 8, Bin - 2. После записи числа, опять меняешь систему, калькулятор автоматом переводит.</span>
А)40Кбит
Б)800Кбит
В)81920Кбит
Г) не понял
