Найдите основание системы счисления y и цифру x, если равенство 21a3xy+3x443y=x03424, где a - максимальная цифра в этой системе. ответ запишите в виде xy.
Const n = 5; var a, s1, s2: integer; i, q1, q2: byte; begin s1 : = 0; q1 : = 0; s2 : = 0; q2 : = 0; writeln('введите ', n, ' чисел: '); for i : = 1 to n do begin read(a); if a < 0 then begin s1 : = s1 + a; inc(q1) end; if a > 0 then begin s2 : = s2 + a; inc(q2) end; end; writeln; if q1 > 0 then begin writeln('сумма отрицательных чисел: ', s1); writeln('количество отрицательных: ', q1) end else writeln('отрицательных нет'); if q2 > 0 then begin writeln('сумма положительных чисел: ', s2); writeln('количество положительных: ', q2) end else writeln('положительных нет') end.
dimoni86
25.01.2022
// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; var m: =readinteger('что ищем? '); var k: =a.findall(x-> x=m).count; writeln('найдено таких элементов- ',k); if k> 0 then writeln('номер первого такого элемента- ', a.findindex(x-> x=m)+1) end. пример n= 17 -46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9 что ищем? -9 найдено таких элементов- 2 номер первого такого элемента- 3
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Найдите основание системы счисления y и цифру x, если равенство 21a3xy+3x443y=x03424, где a - максимальная цифра в этой системе. ответ запишите в виде xy.