Зрительная. видеть. глаз
звуковая.слышать.ушы
вкусовая.вкус.язык
обонятельная.нюхать.нос
осязательная.понять.мозг
resque_of.stl 32 бит
drowning.bmp 5 байт (40 бит)
is_a_deal.jpeg 300 бит
of.doc 0.5 Кбайт
his.xls 1 Мбайт
hands.stl 2048 Кбайт (2 Мбайт)
<em>var a, b, c, i, n, m, j :integer; </em>
<em>s, p, q: string;</em>
<em>begin</em>
<em>read (s);</em>
<em>a:=1;for i:=1 to length (s) do </em>
<em> begin </em>
<em> if s[i]=' ' then </em>
<em> begin </em>
<em> b:=i-a; </em>
<em> c:=0; </em>
<em> p:=copy(s,a,b); </em>
<em> a:=i+1; for j:=1 to length (p) do </em>
<em> if (p[j]<>'у') and (p[j]<>'У') and (p[j]<>'е') and (p[j]<>'Е') and (p[j]<>'ы') and (p[j]<>'Ы') and (p[j]<>'а') and (p[j]<>'А') and (p[j]<>'о') and (p[j]<>'О') and (p[j]<>'э') and (p[j]<>'Э') and (p[j]<>'я') and (p[j]<>'Я') and (p[j]<>'и') and (p[j]<>'И') and (p[j]<>'') and (p[j]<>'Ю') then inc(c); </em>
<em> if c>=m then </em>
<em> begin </em>
<em> m:=c; </em>
<em> q:=p; </em>
<em> end; </em>
<em> end; </em>
<em> end; </em>
<em>a:=length (s); </em>
<em>while s[a]<>' ' do </em>
<em> begin </em>
<em> delete (s,a,1); </em>
<em> a:=a-1; </em>
<em> end;</em>
<em> write (s, q); </em>
<em>end.</em><span><em> </em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
Begin
var count := 0;
var sum := 0;
while True do
begin
var a := ReadInteger;
Assert(a <= 300);
count += 1;
Assert(count <= 100);
if a = 0 then
break;
if (a mod 4 = 0) and (a mod 10 = 8) then
sum += a;
end;
Writeln('Сумма чисел по предикату равна ', sum);
end.