Var a, h: integer;
begin
write('Введите a, h: '); readln(a, h);
writeln('Площадь параллелограмма = ', a * h);
end.
Решал уже.
<span>Пусть во всех 4 секциях участвует x чел.
Тогда 23-x играют только в баскетбол, 26-x только в волейбол,
11-x только в футбол, 29-x только плавают.
Всего x + 23 - x + 26 - x + 11 - x + 29 - x = 56
23 + 26 + 11 + 29 - 56 = 3x
33 = 3x
x = 11.
Получается, что все 11 ребят, играющие в футбол - участвуют во всех 4 секциях.
</span>
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.
Var
a, b, d, y, x, x0: real;
begin
writeln('Пожалуйста, введите границы отрезка: ');
readln(a, b);
writeln('Пожалуйста, введите шаг: ');
readln(d);
y := sqr(x) + 1 / (x - 4);
x0 := a;
while (x0 <= b) do
begin
if ((x0 - 4) = 0) then writeln('Возникло деление на ноль!') else
writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));
x0 := x0 + d;
end;
readln;
end.
Количество просмотров >300 и количество просмотров <=800 и кол-во покупок<=50:620-190=430 записей.
Количество просмотров >300 и количество просмотров <=800 и кол-во покупок<=20: 430-170=260 записей
ответ:260