Перевести числа в двоичную систему счисления: 107 и 138 вычислить сумму чисел в двоичной системе: 111001010 и 101110 перевести в десятичную систему счисления: 110011

3сам досчитаешь

Программа. var q,s: integer;   begin s: =1; for q: =1 to 365 do   s: =s+q; writeln(s); end. описание программы. var q,s: integer;   //  объявление переменных, где  q - цикл от 1 до 365, s - сумма результата. begin // начало выполнение программы. s: =1; // присваиваем переменной s значение 1, т.к. по условию 1 рубль. for q: =1 to 365 do // цикл от 1 до 365    s: =s+q; // сумма цикла. то есть -  сумма = сумма + цикл с шагом 1.  начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня. writeln(s); // вывод результата. end. // конец выполнение программы.

Должно быть правильно, если я правильно понял твой вопрос. program massive;   var a: array[1..50] of integer;   var i, s: integer; begin  for i: = 1 to 50 do //можем заполнить массив целыми числами от -1000 до 1000 используя random()    a[i]: = random(2001) - 1000;         for i: = 1 to 50 do //или дать пользователю самому заполнить массив  begin    writeln('введите значение ', i, ' элемента массива: ');     readln(a[i]);   end;         s: =0;   for i: = 1 to 50 do    if a[i] > 100 then      s: = s+a[i];       writeln('сумма элементов массива, которые больше 100 = ', s); end.