(М.В. Кузнецова) Значение арифметического выражения: 98 + 325 – 14 записали в системе счисления с основанием 3. Найдите сумму цифр в этой записи. ответ запишите в десятичной системе. 176) (М.В. Кузнецова) Значение арифметического выражения: 917 + 316 – 27 записали в системе счисления с основанием 3. Какая из цифр чаще всего встречается в полученном числе? В ответе укажите, сколько таких цифр в этой записи.
177) (М.В. Кузнецова) Значение арифметического выражения: 97 + 38 – 1 записали в системе счисления с основанием 3. Какая из цифр чаще всего встречается в полученном числе? В ответе укажите, сколько таких цифр в этой записи.
178) (М.В. Кузнецова) Значение арифметического выражения: 97 + 38 –5 записали в системе счисления с основанием 3. Какая из цифр реже всего встречается в полученном числе? В ответе укажите, сколько таких цифр в этой записи.
179) (М.В. Кузнецова) Значение арифметического выражения: 95 + 37 –14 записали в системе счисления с основанием 3. Какая из цифр реже всего встречается в этой записи? В ответе укажите, сколько таких цифр в записи.
180) Определите число N, для которого выполняется равенство 214N = 165N+1.
181) Определите число N, для которого выполняется равенство 211N = 152N+1.
182) Определите число N, для которого выполняется равенство 115N = 57N+2.
183) Определите число N, для которого выполняется равенство 123N = 93N+2.
184) Определите число N, для которого выполняется равенство 103N = 97N+2.
185) Определите число N, для которого выполняется равенство 132N + 138 = 124N+1.
186) Определите число N, для которого выполняется равенство 154N + 359 = 170N+1.
187) Определите число N, для которого выполняется равенство 143N + 256 = 138N+1.
188) Определите число N, для которого выполняется равенство 221N + 348 = 180N+2.
189) Определите число N, для которого выполняется равенство 205N + 558 = 196N+2.
190) Определите число N, для которого выполняется равенство 164N + 419 = 145N+2.
Type mas = array [1..50] of integer; var x,y : mas; s1,k1,s2,k2 : integer; s,k : integer; //Если вещественные, а не целые заменить на real(integer)
procedure ma (var x,y : mas); var i : integer; begin for i := 1 to 50 do begin x[i] := random(50); y[i]:=random(75); end; end; procedure sk (var s,k : integer; a : mas); var i : integer; begin s := 0; k := 0; for i := 1 to 50 do if a[i] > 0 then begin s := s + a[i]; k := k +1; end; end;
begin randomize; ma(x,y); sk (s,k,x); s1 := s; k1 := k; sk (s,k,y); s2 := s; k2 := k; //вывод по желанию end.
1) const k = 15; var a : array [1..k] of integer; s : real; i : integer; begin randomize; s := 0; for i := 1 to k do //Обработка массива чаще всего begin //осуществляется в цикле a[i] := random(21); //Формирование s := s + a[i]; //Подсчет суммы элементов end; s := s / k; //Среднее арифметическое (сумма/кол - во) writeln (s:3:3); end.
3) const n = 5; var a : array [1..n] of integer; i,k : integer; begin k := 0; for i := 1 to n do begin readln (a[i]); //Считываем элемент if a[i] < 0 then //Если элемент меньше нуля k := k +1; //счетчик +1 end; writeln (k); end.
mas = array [1..50] of integer;
var
x,y : mas;
s1,k1,s2,k2 : integer;
s,k : integer;
//Если вещественные, а не целые заменить на real(integer)
procedure ma (var x,y : mas);
var
i : integer;
begin
for i := 1 to 50 do
begin
x[i] := random(50);
y[i]:=random(75);
end;
end;
procedure sk (var s,k : integer; a : mas);
var
i : integer;
begin
s := 0; k := 0;
for i := 1 to 50 do
if a[i] > 0 then
begin
s := s + a[i];
k := k +1;
end;
end;
begin
randomize;
ma(x,y);
sk (s,k,x);
s1 := s; k1 := k;
sk (s,k,y);
s2 := s; k2 := k;
//вывод по желанию
end.
const k = 15;
var
a : array [1..k] of integer;
s : real;
i : integer;
begin
randomize;
s := 0;
for i := 1 to k do //Обработка массива чаще всего
begin //осуществляется в цикле
a[i] := random(21); //Формирование
s := s + a[i]; //Подсчет суммы элементов
end;
s := s / k; //Среднее арифметическое (сумма/кол - во)
writeln (s:3:3);
end.
3) const n = 5;
var
a : array [1..n] of integer;
i,k : integer;
begin
k := 0;
for i := 1 to n do
begin
readln (a[i]); //Считываем элемент
if a[i] < 0 then //Если элемент меньше нуля
k := k +1; //счетчик +1
end;
writeln (k);
end.