Var i,b,s:integer;
begin
write('b = '); readln(b);
s:=0;
for i:=-10 to b do s:=s+i;
writeln('s = ',s);
end.
Пример:
b = 5
s = -40
Допустим в январе 31 день. Предположим что осадки это целые числа и число 0 свидетельствует об отсутствии осадков.
Вот функция возвращающая дни без осадков
<span><span>C#Выделить код</span><span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<span> private int[] NetOsadkov(ref int[]Pogoda)
{
int[] error = {-1};
int[] PogodaBezOsadkov = { 0 };
List<int> osadki = new List<int>();
int NetOsadkov = 0;
if (Pogoda.Length < 31)
{
return error;
}
for (int i = 0; i < Pogoda.Length;i++ )
{
if (Pogoda[i] == NetOsadkov)
{
osadki.Add(i+1);
}
}
PogodaBezOsadkov = osadki.ToArray();
return PogodaBezOsadkov;
}</span></span></span>Проверяем..
<span><span>C#Выделить код</span><span>1
2
3
4
5
6
7
8
<span> int[] JanuaryWeather = {123,4535,756,45,0,67,22,3453,765,35,456,35,0,35,45,76,6,567,35,6543,0,35,456,58,467,4657,458,48,0,67,745};
string result = string.Empty;
foreach (int val in NetOsadkov(ref JanuaryWeather))
{
result += val.ToString() + ',';
}
MessageBox.Show(result+" "+"Января была погода без осадков")<span>;</span></span></span></span>
Для для хранения информации с помощью 200-символьного алфавита необходимо 8 бит на 1 символ = 1 байт. Осталось перемножить количество символов на странице на количество строк и на количество страниц:
48*96*1280 = 5 898 240 байт = 5 760 Кбайт
Сначала вычислим какой объем занимает 1-а страница
2*48*128=12288 Байт;
12288 байт весит 1-а страница, теперь переведем ее в Кбайты
12288/1024 = 12 Кбайт
Осталось посчитать сколько всего страниц. Весь документ весит 720Кб, 1-а страница 12кб
720/12 = 60 страниц
Ответ: 60