Var a,i,j,b,p,p1:longint; m:array[0..501] of longint; procedure qsort(l,r:longint); var q,w,i,j,p:longint; begin q:=m[(l+r) div 2]; repeat while m[i]<q do inc(i); while m[j]>q do dec(j); if i<j then begin w:=m[i]; m[i]:=m[j]; m[j]:=w; inc(i); dec(j);inc(p); end; if i=j then begin inc(i);dec(j); end; until i>j; if i<r then qsort(i,r); if j<l then qsort(l,j); p1:=p; end; begin for i:=1 to 500 do m[i]:=random(100); for i:=1 to 500 do for j:=500 downto i+1 do if m[j]<m[i] then begin a:=m[j]; m[j]:=m[i]; m[i]:=a; inc(p); end; writeln(p); qsort(1,500); writeln(p1); end.
Var i1, i2, i3: 1..9; //Цифры трехзначного числа i, n: integer; //n - количество трехзначных чисел, у которых ... begin n:= 0; //Обнуляем счетчик for i:= 100 to 999 do //Перебираем все трехзначные числа и считаем количество begin i1:= i div 100; i2:= (i mod 100) div 10; i3:= i mod 10; if (i1 + i2 + i3) mod 2 = 0 then n:= n + 1; end; writeln('Количество трехзначных чисел, у которых сумма цифр является четным числом равна: ', n); //Выводим количествоend.Если все правильно, отметь решение как лучшее)
Program XD;
var z,x,c:integer;
begin
read(z,x,c);
write(z,' ',x,' ',c,' ');
end.
Объяснение: