<em><u>Borland Pascal 7.01</u></em> uses Crt; function max(m,n:integer):integer; begin if m>n then max:=m else max:=n end; function min(m,n:integer):integer; begin if m<n then min:=m else min:=n end; var x,y,z:integer; m:real; begin ClrScr; Write('Введите x,y,z: '); Read(x,y,z); m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z)); Writeln(m); ReadKey end.
Начало программы Ввод X, Y, Z Присвоить А:=0 Если ХЕсли Y>Z тогда А:=А+Y, иначе А:=А+Z Если X<(Y/Z) тогда А:=А+Х, иначе А:=А+Y/Z Вывод А Конец программы
Итак, вначале напишем число 74 из которого в итоге должны получить 0. Вот что получилось у меня. 74|:2 37|-1 36<span>|:2 18</span><span>|-1 17</span><span>|-1 16</span><span>|-1 15</span><span>|-1 14</span><span>|:2 7</span><span>|-1 6</span><span>|:2 3</span><span>|-1 2</span><span>|:2 1</span><span>|-1 Следуя этому получаем: 2121111212121 </span>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a,b:integer; Read(a,b); var k:=0; for var i:=a to b do begin var n:=i; var s:=0; while n<>0 do begin s+=n mod 10; n:=n div 10 end; if i mod s = 0 then begin Write(i,' '); Inc(k) end end; Writeln(#13#10,k) end.