Program Pokupka 1 Uses Crt Var b k






Program Pokupka 1; Uses Crt; Var b, k, t: integer; Begin Clrscr; for b: =0 to 10 do for k: =0 to 20 do for t: =0 to 200 do if (20*b+10*k+t=200) and (b+k+t=100) then writeln('Bkov ', b, ' korov ', k, ' telyat ', t); readln; end. Сколько раз будет проверяться условие в данной программе? Значение b изменяется 11 раз – от 0 до 10; k - 21, t - 201 Таким образом, условие будет проверяться 11*21*201 = 46431 раз.



Program Sdacha; Uses Crt; Var Sum, Xmax, Ymax, Zmax, x, y, z, p: integer; Begin Clrscr; Writeln ('Vvedite Summu'); Readln (Sum); p: =0; Xmax: =Sum div 2; Ymax: =Sum div 5; Zmax: =Sum div 10; Writeln (' 2 5 10 Vsego monet'); Writeln ('___________'); for x: =0 to Xmax do for y: =0 to Ymax do for z: =0 to Zmax do if 2*x+5*y+10*z=Sum then begin writeln(x: 3, y: 3, z: 3, x+y+z: 8); p: =p+1; end; If p=0 then writeln('Variantov net') else writeln ('Vsego ', p, ' variantov'); readln; end.


Program Summa; Uses Crt; Var c, t, o, p, Cto, Toc, Cot: integer; Begin Clrscr; Writeln (' CTO+COT=TOC'); Writeln; for c: =1 to 9 do for t: =1 to 9 do for o: =0 to 9 do begin Cto: =c*100+t*10+o; Cot: =c*100+o*10+t; Toc: =t*100+o*10+c; if Cto+Cot=Toc then begin writeln(Cto: 4, Cot: 4, Toc: 4); p: =p+1; end; End; If p=0 then writeln('Variantov net') else writeln ('Vsego ', p, ' variantov'); readln; end.


- Slides: 13