Информатика, 10 кл. написать программу, определяющую сдачу наименьшим количеством монет.для определения размера сдаваемой сдачи, сначала определить, сколько требуется для этого монет 50 рубл. достоинства, затем 20, 10, 5, 2, 1, пока необходимая сумма не будет набрана.

274

469

Посмотреть ответы 2

Ответы на вопрос:

xacku1

Информатика

4,8(47 оценок)

Var s,d,f,g,h,z,v: integer; begin write('введите остаток'); read(s); if s > 50 then begin d: = s div 50; s: = s - d * 50; end; if s > 20 then begin f: = s div 20; s: = s - f * 20; end; if s > 10 then begin g: = s div 10; s: = s - g * 10; end; if s > 5 then begin h: = s div 5; s: = s - g * h; end; if s > 2 then beginz: = s div 2; s: = s - g * z; end; if s > 1 then beginv: = s div 1; s: = s - g * v; end; writeln('50p =',d,' 20p =',f,' 10p =',g,' 5p =',h,' 2p =',z,' 1p =',v); end.

klemiatoeva

Информатика

4,6(70 оценок)

Если x и y целые и положительные числа то например можно так: 1 program p1; 2 var x,y: integer ; 3 x: =20; 4 y: =40 ; 5 x: =x+y ; 6 y: =x-y 7 x: =x-y ; а так же можно решить умножением: 1 x: =x*y ; 2 y: =x div y; 3 x: =x div y ;