For i 1 to 10 do
if a[i]=0 then
inc(k)
=====
for i 10 downto 1 do
write(a[i]:4:2)
На паскале:
program prim;
var a,z,x,y,b:real;
begin
writeln('Введите z, x и y: ');
readln(z,x,y);
a:=(44*z+x)/((y*y*y)-5);
b:=(sqr(x)*(sqr(y)-2))+(sqrt(3+z)/8);
writeln('a и b равно ',a ,' ', b);
end.
Если конечно я все правильно понял))
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
Program q;
var a,b:integer;
c:char;
begin
a:=random(10);
b:=random(32)+224;
c:=chr(b);
writeln('рандомная цифра:',a);
writeln('рандомная буква:',c);
<span>end.</span>