Var
i, n: integer;
begin
readln(n);
for i := 1 to n do
write(i,' ');
end.
Program lol;
var a:integer;
begin
for a:=100 downto 1 do
begin
if a mod 3 = 0 then
writeln(a);
end;
<span>end.
P.S.
в строке </span>for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает<span>
</span>
1) (b+sqrt(sqr(b)+4*a*c)/(2*a) - power(a,3)*c+sqr(b);
2) a/c*(b/d) - (a*b-c)/(c*d);
3) (sqr(x)-7*x+10)/(sqr(x)-8*x+12)
4) Sin(sqrt(x+1))-Sin(sqrt(x-1))
Ответ: <span>составная часть презентации,содержащая различные объекты,называется слайд
</span>