Вычисление количества денежных единиц на введённую сумму

@XakER_93 · Регистрация: 16.09.2008

Author24 — интернет-сервис помощи студентам

Помогите решить задачу плиззззз !!!
Написать програму вычесления количества денежных едениц на введёную сумму.

Помогите пжалусто плизззззззз !!!!!!!!!!!!!!!

Vourhey · 28.09.2008, 19:33

хакер прогу не может написать )). А что именно не получается?

@Ромчик · 28.09.2008, 19:35

Что не получаеться. И дай код (если есть). Возможно подправлю.

@XakER_93 · 28.09.2008, 19:41 **[ТС]**

Неполучаеться вывести количесто купюр нужним номиналом
например: вводитса число 250 грн,нужно вывести (два числа)купюры номиналом 200грн и 50 грн.Исходника к сожалению нет :'(

@ABTOP · 28.09.2008, 19:48

А чего исходника нет?

P.S.

Я так думаю если никакого кода нет, значит и не пробовал ничего зделать...

@XakER_93 · 28.09.2008, 19:50 **[ТС]**

Флешку с исходником потерял.

@ABTOP · 28.09.2008, 20:03

Pascal

program p1;
uses crt;
var
   i, a, b:Integer;
begin
     clrscr;
     ReadLn(i);
     a:=i div 100;
     b:=i mod 100;
     a:=a*100;
     WriteLn(a, ' grn. ', b, ' grn.');
end.

это для код 250... А что должно выводить если введёшь 350, 370, 375, 400...

@XakER_93 · 28.09.2008, 20:17 **[ТС]**

он должен виводить любое введёное число как числа 200,100,50,20,5,2.
например: 350 = 200 и 100 и 50 и 20;
375 = 200 и 100 и 50 и 20 и 5;

Vovan-VE · 28.09.2008, 20:20

Тогда сначала надо делить введенное число на номинал максимальной купюры, затем остаток делить на номинал купюры поменьше и т.д.

Pascal

var n:Integer;
procedure print_coun_of(value:Integer);
var i:Integer;
begin
    i := n div value;
    n := n mod value;
    if i>0 then writeln(value,' * ',i);
end;
 
begin
    write('Input number: ');
    readln(n);
    print_coun_of(5000);
    print_coun_of(1000);
    print_coun_of(500);
    print_coun_of(100);
    print_coun_of(50);
    print_coun_of(10);
    print_coun_of(5);
    print_coun_of(2);
    print_coun_of(1);
    readln;
end.

@XakER_93 4 / 4 / 0 Регистрация: 16.09.2008 Сообщений: 45
		1
	Вычисление количества денежных единиц на введённую сумму 28.09.2008, 19:31. Показов 1451. Ответов 8 Метки нет (Все метки) Помогите решить задачу плиззззз !!! Написать програму вычесления количества денежных едениц на введёную сумму. Помогите пжалусто плизззззззз !!!!!!!!!!!!!!! 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	28.09.2008, 19:33	2
	хакер прогу не может написать )). А что именно не получается? 0

@Ромчик 12 / 12 / 0 Регистрация: 31.07.2008 Сообщений: 106
	28.09.2008, 19:35	3
	Что не получаеться. И дай код (если есть). Возможно подправлю. 0

@XakER_93 4 / 4 / 0 Регистрация: 16.09.2008 Сообщений: 45
	28.09.2008, 19:41 [ТС]	4
	Неполучаеться вывести количесто купюр нужним номиналом например: вводитса число 250 грн,нужно вывести (два числа)купюры номиналом 200грн и 50 грн.Исходника к сожалению нет :'( 0

@ABTOP 36 / 36 / 4 Регистрация: 09.06.2008 Сообщений: 324
	28.09.2008, 19:48	5
	А чего исходника нет? P.S. Я так думаю если никакого кода нет, значит и не пробовал ничего зделать... 0

@XakER_93 4 / 4 / 0 Регистрация: 16.09.2008 Сообщений: 45
	28.09.2008, 19:50 [ТС]	6
	Флешку с исходником потерял. 0

@XakER_93 4 / 4 / 0 Регистрация: 16.09.2008 Сообщений: 45
	28.09.2008, 20:17 [ТС]	8
	он должен виводить любое введёное число как числа 200,100,50,20,5,2. например: 350 = 200 и 100 и 50 и 20; 375 = 200 и 100 и 50 и 20 и 5; 0

	28.09.2008, 20:20