Cls
input n
dim a(n)
for i=1 to n
input a(i)
next i
for i=1 to n
for j=1 to n
if a(i)<a(j) then swap a(i),a(j)
next j
next i
for i=1 to n
print a(i);
next i
задай var x,y:real;
так как в формуле есть деление.
Var p,i, n:integer;
begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
<span>end.
</span>
C=25, d=2
т.к.:
1 круг
100/2=50 остаток 0
выполняем цикл
с=50, d=1
2 круг:
50/2=25 остаток 0
выполняем цикл
c=25, d=2
3 круг
25/2=12 остаток 1 (условие не соблюдено)
выходим из цикла
осталось c=25, d=2
Разрешение составляет 1280 на 1024. Поясняю, если перемножить эти числа то получится ваше разрешение