Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
e=14
f=15
ответ 2
пщояк 17 27 16 33 17
нщёп 15 27 7 17
совершенное число это число равное сумме своих делителей отличных от самого числа
var i, s,j : integer;
begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.
запишу на обычном языке, паскаль не помню уже.
а - первое число. б - второе число.
если а больше б и б div 5=0 тогда выводится на экран (' б наименьшее число и нацело делится на 5')
если б больше а и а div 5=0 тогда выводится на экран (' а наименьшее число и нацело делится на 5')
точно не помню как выглядит это в паскале, но что-то типо такого
if a< b and a div 5=0 then writeln ('а наименьшее число и нацело делится на 5');
if b< a and b div 5=0 then writeln ('б наименьшее число и нацело делится на 5');
Популярные вопросы