................................................
Var d,s:real; i:integer;
begin
d:=20; s:=d;
for i:=2 to 7 do
begin
d:=d+2;
s:=s+d;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 182</span>
В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)
Интернет вреден для глаз но при этом можно узнать много полезной информаций а если сидеть по 15 мин.вдень не чего не встанет можночитать книги проходить тесты и естественно поиграть в логические игры
1 буква = 5 бит, т.к. 2^5=32.
5*200 = 1000 бит
1000:8=125 байт все хорошо, вот только чтобы получить из этого кбайты нужно поделить на 1024
следовательно 125/1024=0.1220703125кбайт