Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
SELECT * FROM "Зоопарк" WHERE "количестве пищи в день" BETWEEN 5 and 10
1111101(2)=2^6+2^5+2^4+2^3+2^2+2^0=125(10)
AF(16)=175(10)
A=10 F=15
AF(16)=16^1*10+16^0*15=175(10)
36(8)=3*8^1+6*8^0=30(10)
1101(2)=2^3+2^2+2^0=13(10)
125+175+30+13=343