Ну если я правильно понял то что тут написано то вот на pascal'e.. )
Var n,a,b,c:byte;
begin readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n mod 10;
if (a=b) or (a=c) or(b=c) then writeln('да') else writeln('нет');
<span>end.</span>
Mod 2=1 поскольку у нечетных чисел остаток при делении на 2 равно 1
1. Если бы программы размещались прямо на рабочем столе, то на нем же находилось бы большое кол-во папок. Ярлыки иногда используют, если папка или программа находится не на основном диске, но должны быть на рабочем столе
2. Все
Var g,i:integer;
begin
read(g);
if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln('Мы нашли в лесу ',g,' гриб'); i:=1; end;
if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln('Мы нашли в лесу ',g,' гриба'); i:=1; end;
if i=0 then writeln('Мы нашли в лесу ',g,' грибов');
<span>end.</span>
Program n1;
var x: integer;
begin
x:=-4;
writeln(abs(7*x-15)-sqr(sqr(x)));
x:=3;
writeln(abs(7*x-15)-sqr(sqr(x)));
end.