Часть 1 1) укажите самое большое число: 1) 75613; 2) 75610; 3) 7568; 4) 75616. 2) как представлено число 8310 в двоичной системе счисления? 1) 1010112 2) 11001012 3) 10100112 4) 1010012 3) сколько ячеек содержит диапазон d4: e5 в электронной таблице: 1) 4; 2) 8; 3) 9; 4) 10. 4) среди записей отыщите формулу для электронной таблицы. 1) d5c8-a3b2; 3) d5*c8-a3*b2; 2) a1= d5*c8-a3*b2; 4) =d5*c8-a3*b2. 5) в ячейке b1 записана формула =2*$a1. какой вид приобретет формула, после того как ячейку b1 скопируют в ячейку c2? 1) =2*$b1 2) =2*$a2 3) =3*$a2 4) =3*$b2н
Ответы
1).7568 самое большое
Var i,n: integer; s,min: real; a: array[1..10]of real; begin writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(-10,10); write(a[i],' '); if a[i]< 0 then begin s: =s+a[i]; n: =n+1; end; if a[i]< min then min: =a[i]; end; writeln; s: =s/n; for i: =1 to 10 do if a[i]=min then a[i]: =s; writeln('среднее отрицательных: ',s); writeln('измененный массив: '); for i: =1 to 10 do write(a[i],' '); end.
Var i,n,max: integer; a: array[1..30]of integer; begin writeln('исходный массив: '); for i: =1 to 30 do begin a[i]: =random(0,1000); writeln(a[i]); if (a[i]> 9) and (a[i]< 100) then begin if max=0 then max: =a[i]; if a[i]> max then max: =a[i]; end; end; for i: =1 to 30 do if a[i]=max then n: =n+1; if max> 0 then writeln('n=',n) else writeln('таких нет'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько значащих нулей в двоичной записи восьмеричного числа 376?
Автор: fakyou170
Найдите и выведите все двузначные числа, которые равны удвоенному произведению своих цифр. в питоне
Автор: Станиславович ыфвыв