Const max=18;
var i,k:byte;
ar:array [1..max] of integer;
s:integer;
begin
writeln('Начальный массив случайных чисел в диапазоне [0,30)');
for i:=1 to max do begin
ar[i]:=random(0,29);
write(ar[i]:6);
end;
k:=0;
s:=0;
for i:=1 to max do begin
if ar[i]>15 then
k:=k+1;
if not odd(ar[i]) then
s:=s+ar[i];
end;
writeln();
writeln('Задание 1. ', 'k=', k);
writeln('Задание 2. ', 's=', s);
end.
В памяти компьютера на кодирование 1 символа требуется 1 байт.
Следовательно 1,25 Мб/1 байт = 1,25*1024*1024=1310720 символов в тексте
Что требуется сказать? что он значит? этот двоичный код?
Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin clrscr; // Очистка экрана randomize; // инициализирует рандом a:=0; // инициализирует аккумулятор for i:=1 to 30 do M[i] := random(1000); // заполняет массив рандомными числами for i:=1 to 30 do if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен 0... a := a + M[i]; // то добавить число к сумме // если аккумулятор больше 0, то вывести вывести его значение if a>0 then writeln('a = ',a) // иначе вывести "чисел нет" else writeln('чисел нет');end.
Держи,успехов:):):):):):)