Uses crt; const n=15; var a: array[1..n] of integer; i,j,k,t: integer; found: boolean; begin clrscr; randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(90)+1; write(a[i],' ') end; writeln; i: =n; found: =false; repeat found: =(a[i] mod 2=0); if (not found) then dec(i) until found or (i=0); if found then begin for i: =i to n-1 do a[i]: =a[i+1]; writeln('результирующий массив: '); for i: =1 to n-1 do write(a[i],' ') end; readkey end. тестовое решение: исходный массив: 60 90 39 83 24 70 82 53 45 5 12 9 85 57 47 результирующий массив: 60 90 39 83 24 70 82 53 45 5 9 85 57 47
Спасибо
Ответ дал: Гость
один сивол занимает 1,5 кбайт / 3072 = 1,5 * 1024 байт / 3072 = 1,5 байт / 3 = 0, 5 байт = 4 битмощность алфавита (количество символов в алфавите) находится по формуле , где n - мощность алфавита, i - количество бит на один символ.ответ: символов в алфавите
Ответ дал: Гость
i - цикловая переменнаяs1 - сумма нечётных чисел от 1 до 100s2 - сумма чётных чисел от 1 до 100vari, s1, s2 : integer; begins1 : = 0; s2 : = 0; for i : = 1 to 100 do beginif i mod 2 = 0 thens2 : = s2 + i; elses1 : = s1 + i; end; writeln ('сумма четных чисел: ', s2); writeln ('сумма нечетных чисел: ', s1); end.
Популярные вопросы