function opkd(n: integer): integer;
var i,k: integer;
begin
k:=0;
for i:=1 to n do if n mod i=0 then k:=k+1;
opkd:=k;
end;
var n,i,k: integer;
begin
k:=0;
readln(n);
for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;
write(k);
end.
var x:array[1..8] of integer := (-10, -9, -8, -7, -6, -5, -4, -3); i,a:integer; y:real;begin writeln('a='); readln(a); for i:=1 to 8 do begin y:=7*sqr(x[i])-14/x[i]+a; writeln('x[',i,']= ',y); end;end.
А)лишнее звук
б)лишнее число
3Д изображения имеют большую реалестичность
ешё картина весенний сад