{сумма натуральных чисел из промежутка от 1 до 100, которые делятся на 17 и сумма цифр, которых не превышает 7. Можно перебором} var i,s:integer; begin s:=0; for i:=1 to 100 do if (i mod 17=0) and (i div 10 + i mod 10<7) then s:=s+i; writeln(s); end. {результат 51}
{ Можно оптимизировать в цикле изменив for i:=1 to 100 do на for i:=17 to 100 do}
{2 вариантө оптимальнее - перебираем только числа кратные 17] var i,s:integer; begin s:=0; i:=17; while i<=100 do begin if (i div 10 + i mod 10<7) then s:=s+i; i:=i+17; end; writeln(s); end.
<span>Думаю, что нужно представить слово "ЁЖ" в виде аббревиатуры. Алгоритм и объяснения будут зависеть от словосочетания, которое будет обозначено словом "ЁЖ".</span>
1) var n,min:integer; begin write('n = '); readln(n); min:=9; while n>0 do begin if n mod 10 < min then min:=n mod 10; n:=n div 10; end; writeln('min = ',min); end.
Пример: n = 24815 min = 1
2) var n,k1,k2:integer; begin write('n = '); readln(n); k1:=0; k2:=0; while n>0 do begin if n mod 2=0 then k1:=k1+1 else k2:=k2+1; n:=n div 10; end; if k1>k2 then writeln('кол-во четных больше чем нечетных цифр') else if k2>k1 then writeln('кол-во нечетных больше чем четных цифр') else writeln('количество четных равно количеству нечетных'); end.
Пример: n = 1234 количество четных равно количеству нечетных