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
Блок-схема - в прилагаемом файле
1. Г Д Е
2. А В Д
3. б
4. в
5. а
6. Информация - это сведения о чем-либо, не обращая внимания на форму, в какой они представлены.
7. 2 Мб = 2*2^20 байт = 2097152 байт = 16777216 бит
8. 8388608 бит = 1048576 байт = 1024 килобайт = 1 мегабайт
(Объяснение для №№ 7 и 8: 1 байт - 8 бит. 1 килобайт - это 2^10=1024 байта, а 1 мегабайт - это 1024 килобайт.)
<span>V=ixK</span>
<span>К=2х256=512</span>
<span>N=1/16x20000000000=0,125Кбайт
2i=N
i=29
</span><span>V=29х512=14848</span>
<span>х-умножить</span>
19 век были изобретены эти лампы
Program gt;
var n,i,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+2*i-1;
writeln(s);
end.