Подставляем значения в формулы и считаем:
a) rez:=1+1=1
b) rez:=1*1*1*0=0 (b>30 не выполн., поэтому там 0)
с) rez:=(не 1)+0=0
//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;
begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
var
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
if i mod 2 = 0 then
begin
write(i:4);
sum:=sum+i;
end;
writeln;
writeln('Их сумма = ',sum);
<span>end.</span>
1 задача
var a, b, s, i, k:integer;
z:array[1..10] of integer;
begin
s:=1;
For i:=1 to 10 do
begin
z[i]:=random(16)-10;
if z[i]<0 then
begin
k:=sqr(z[i]);
s:=s*k;
end;
end;
For i:=1 to 10 do
begin
write (z[i], ' ');
end;
writeln ();
writeln ('Произведение квадратов равно ', s);
<span>end.</span>
Сначала разобьем число надвое получим 13 и 11, т.к. числа записываются в порядке убывания, то не имеет значение какое число вычислять сначала итак:
разбиваем числа 13 и 11 на составляющие
4+9=13 5+6=11
5+8=13 4+7=11
6+7=13 3+8=11
2+9=11
Принципиально важно, чтоы наименьшие возможные числа располагались по наивысшим разрядам, значит число получится таким: 2949
Ответ:2949