Var a,b:real;
begin
readln(a,b);
writeln('Сумма чисел равна: ',a+b);
writeln('Произведение чисел равно: ',a*b);
writeln('Частность чисел равна: ',a/b);
end.
const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
ответ на первый вопрос - второе
1)попросить маму пришить пуговицу
2)напомнить маме пришить пуговицу
3)ещн раз попросить маму пришит пуговицу
4)расплакаться
5)получить готовый результат
1) в 6СС-3441
2)в 7 СС -2625
3) в 5 СС
в 4) надо перевести все в 10СС и отметить точки на осях
var
y: <em>real</em>;
begin
read(y);
writeln(System.Math.Pow(System.Math.Tan(<em>y * Pi / 180</em>), 3));
<span>end.</span>