var i,k,j,s:integer;
begin
readln(k);
FOR I:=100 TO 300 DO
begin
s:=0;
for j:=1 to i do
if i mod j=0 then s:=s+j;
if s=k then writeln(i);
end;
end.
Ну например на Паскале так, только совсем без проверок корректности вводимых данных, а так можно было отработать еще и отсутствие хорошистов отличников просто, если х=0, то и их средний балл тоже выводить 0.
Ответ:
не знаю под чем ты подразумеваешь алгоритм, если это программа на паскаль то вот, нет ну тут уже сами справитесь, тут уж все разжевано
Объяснение:
program my;
var
i:integer;
bil:longint;
a:array [1..6] of integer;
begin
write('Введите номер билета');
readln (bil);
if (bil>999999) or (bil<100000) then begin
writeln('Введён неправильный номер');
end
else
for i:=1 to 6 do
begin
a[i]:=bil mod 10;
bil:=bil div 10;
writeln(a[i]);
end;
if (a[1]+a[2]+a[3])=(a[4]+a[5]+a[6]) then writeln('Вы выиграли')
else
writeln('Вы проиграли');
end.
<u>1</u> 30 <u>435</u> 4060 <u>27405</u> 142506 <u>593775</u> 2035800 <u>5852925</u> 14307150 <u>30045015</u> 54627300 <u>86493225</u> 119759850 <u>145422675</u> 155117520 <u>145422675</u> 119759850 <u>86493225</u> 54627300 <u>30045015</u> 14307150 <u>5852925</u> 2035800 <u>593775</u> 142506 <u>27405</u> 4060 <u>435</u> 30 <u>1</u>
Это 30-я строка треугольника Паскаля, расчитанная онлайн на сайтеhttp://calcsbox.com/post/treugolnik-paskala.html. Жирным шрифтом с подчёркиванием выделены все нечётные цифры. Всего их 16.
Ответ: 16.
P.S. На 32-ой строчке ответ 2; на 31-ой строчке ответ 32.