Ответ:
Вот что есть
Объяснение:
Возможно именно эти задания у тебя будут)
//прога на 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.
Вариант d, кажется
Очень плохо видно
Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;