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>
Program pr1;
Var A:array [1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
read (A[i]);
k:=0;
for i:=1 to 10 do
if A[i] mod 2=0 then
k:=k+1;
writeln;
writeln (k);
end.
наверное так, но лучше проверь в паскале
program
zadacha;
var
a,b,x,y,f:
real;
begin
writeln('vvedite
a,b,x');
readln(a,b,x);
y:=(sqr(a+b)*x)
/ (sqrt(sqr(a)+sqr(b)));
<span>f:=sqr(cos(y))
+ ((a-b)-a*x) / (y*b);</span>
writeln('y
=',y:6:2);
writeln('f(y)
=',f:6:2);
end.