Var n,m,d,k,max,maxk: integer; begin write('n = '); readln(n); write('m = '); readln(m); maxk: =0; for n: = m downto n do begin if n> 1 then k: =2 else k: =1; d: =n div 2; while d> 1 do begin if n mod d = 0 then k: =k+1; d: =d-1 end; if k> =maxk then begin maxk: =k; max: =n; end; end; writeln('искомое число: ',max); writeln('количество делителей этого числа: ',maxk); end.
rakitinat8
26.12.2020
1. наполняем кувшин 3 литрами воды. в первом кувшине 3 л, во втором 0л 2. переливаем все из первого во второй. в первом кувшине 0 л, во втором 3л 3. повторяем п1. в первом кувшине 3 л, во втором 3л 4. повторяем п2. в первом кувшине 0 л, во втором 6л 5. повторяем п1. в первом кувшине 3 л, во втором 6л 6. переливаем из первого во второй до наполнения второго. в первом кувшине 1 л, во втором 8л 7. выливаем все из большего кувшина. в первом кувшине 1 л, во втором 0л 8. повторяем п2. в первом кувшине 0 л, во втором 1л 9. повторяем поледовательнось п1-п4 два раза, в первом кувшине 0 л, во втором 7л
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какое из устройств предназначено для ввода информации? процессор, принтер, клавиатура или память компьютера