begin
var a := ReadArrInteger(15);
for var i := 14 downto 0 do
Println(a[i]);
end.
Я мог ошибиться в формуле. Она в цикле, перепроверь.
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
Заметим, что так как
собаки 200
кошки 250
кошки | собаки 450
то нет страниц, на которых ключевыми словами являются одновременно собаки и кошки (200+250=450 ⇒ кошки & собаки 0). Диаграмма Эйлера для такого случая показана на прилагаемом рисунке.
К1+К3 = 200
К2+К4 = 25
K3+К4+К5 = 450
К1+К2+К3+К4 = 450
K4 = 40
K3 = 50
К1+К2+К3+К4+К5 - ?
K5 = (K3+К4+К5)-K3-K4 = 450-50-40 = 360
К1+К2+К3+К4+К5 = 450+360 = 810
Ответ: 810