Банкомат написать программу: на вход подаётся число s. выразить данную сумму денег минимальным количеством банкнот по 500, 100, 10, 5, 2,1.

291

446

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

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

Marka9696

Информатика

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

Program abc; var a: array[1..6] of integer; var i,s: integer; begin i: =0; a[1]: =500; a[2]: =100; a[3]: =10; a[4]: =5; a[5]: =2; a[6]: =1; writeln('введите целое число,сумму денег: '); readln(s); while s< > 0 do begin if s> =a[1] then begin s: =s-a[1]; i: =i+1; end; if (s> =a[2]) and (s< a[1]) then begin s: =s-a[2]; i: =i+1; end; if (s> =a[3]) and (s< a[2]) then begin s: =s-a[3]; i: =i+1; end; if (s> =a[4]) and (s< a[3]) then begin s: =s-a[4]; i: =i+1; end; if (s> =a[5]) and (s< a[4]) then begin s: =s-a[5]; i: =i+1; end; if (s> =a[6]) and (s< a[5]) then begin s: =s-a[6]; i: =i+1; end; end; writeln('наименьшее число купюр =',i); end.

НеПøтêpяHHåя

Информатика

4,7(5 оценок)

// среди чисел 1, 4, 9, 16, 25, найти первое число, большее n. program cyberforum707298; var n : integer; // данное число otvet : integer; // ответ i: integer; // счетчик в цикле begin writeln('введите целое число (n > 0) n='); readln(n); i: =1; while i*i < = n do inc(i); // otvet: =i*i; // вывод ответа writeln('ответ = ',otvet) end.