1) 5 9 13 17 21 25 29 33 37 41 45 49
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
repeat
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
until (sum = 324); //выход когда сумма равна 324
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец
16 = 2^4 , значит вес одного символа 4 байта
Всего символов 384, значит вес всего сообщения равен:
384*4 = 1536 (байтов)
1536 байтов = 1,5 килобайтов
Ответ: сообщение будет весить 1,5 килобайтов.
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2>
- begin
- var arr := SeqRandomInteger(ReadInteger('N = ')).ToArray;
- arr.Println;
- Writeln('< 50: ', arr.Where(x -> (x < 50)).Average:3:2);
- Writeln('>= 50: ', arr.Where(x -> (x >= 50)).Average:3:2);
- end.