Ответ:
Объяснение:
дискета,SD ROM,DVD ROM,флеш память,Жесткий диск
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
Блок-схема - в прилагаемом файле
<em>1) из 5 л наполняем 3л - в 5л отстается 2л</em>
<em>2) опусташаем 3л банку - переливаем из 5литровой 2л в 3х литровую банку</em>
<em>3) 5л банка оказалась пустрой, а в 3л банке 2л</em>
<em>4) наполняем 5л банку</em>
<em>5) заливаем недостающий литр в 3х литровую банку</em>
<em>всё, в 5 литровой банке остается 4 литра.</em>
<em>Совет: нарисуй эту схему на тетрадном листке в клетку, столбики 3л - 3 клетки, 5л- 5клеток, и "переливай" :)</em>