Варианты могут быть разные
1) берем черного кота
2) связываем лапы
3) мажем всю шкуру осветлителем
4) ждем положенное время, слушая непрерывное мявканье
5) смываем осветлитель с кота
6) размешиваем хну с кипятком
7) мажем всю шкуру кота
8) ждем положенное время, слушая непрерывное мявканье
9) смываем хну с кота
10) развязываем лапы
должен получиться рыжый кот
но лучше так не делать) гринпис не одобрит
Program A;
uses crt;
<span>var </span>
<span>s: string; </span>
<span>k,j,f: integer; </span>
<span>ch: char; </span>
<span>begin </span>
<span>read(S); </span>
<span>f:=0; </span>
<span>for k:=1 to length(s) do </span>
<span>for j:=1 to length(s) do </span>
<span>if ((s[k]=s[j]) and (k<>j)) then begin f:=1; ch:=s[k]; end; </span>
<span>if f=1 then Writeln('YES - ',ch) else write('NO'); </span>
<span>readln; </span>
<span>End.</span>
Const n=20;
Var i, k:integer ;s:real ;
A:array [1..200]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
Write(' ') ;
a[i]:=random(41)+150;
S:=s+a[i];
Writeln(' ', a[i]) ;
End;
S:=s/n;
For i:=1 to N do begin
If(a[i] >s) then k:=k+1;
End;
Writeln ( ' ', k) ;
End.