Спортивный инвентарь, советские тренажеры - выбери, как больше нравится
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
Writeln(Range(15,22).Average)
end.
Результат
18.5
Ответ:
1. 50 байт
2. 4 страницы
Объяснение:
2. всего текст занимает 10*1024 байта=10240 байт
8 битная кодировка означает что на хранение 1 символа требуется 8 бит=1 байт. получается, что текст содержит 10240 символов.
этот текст поместится на 10240/64 строках = 160 строк
160 строк поместятся на 160/40=4 страницах
1. посчитаем сколько символов в строке, учитывая пробелы и знаки - 50.
<span>Program Z2;
</span><span>uses crt; // Подключение модуля
</span>Const //Описание констант
n =16;
var //Описание переменных
s1,s2:real;//Не совсем понятно зачем real, ведь массив integer
<span>var
q: string; //Строковая переменная !!!Вообще нигде не используется
</span>Var m: array [1..n] of integer; //Массив целых чисел
Var i,j:integer; //Переменные цикла !!Хватило бы и одной
begin
//Формирование массива
for l:=1 to n do
read(m[i]);
//Обнуление переменных сумм
s1:=0;
s2:=0;
for J:=1 to 8 do
begin
//Подсчет суммы элементов с четным порядковым номером
s1:=s1+m|2*j];
//Подсчет суммы элементов с нечетным порядковым номером
s2:=s2+m|2*j-1];
end;
If s1>s2 then //Условие
<span>writeln('cyммa элементов с четным индексом больше. чем сумма с нечетным);
end.</span>