Переведите программу о сдаче с языка Кумир ** язык Паскаль алг Сдача нач . цел...

Question

Переведите программу о сдаче с языка Кумир на язык Паскаль алг Сдача нач . цел s,k500,k100,k50,k10 . ввод s . k500:=div(s,500) . s:=mod(s,500) . k100:=div(s,100) . s:=mod(s,100) . k50:=div(s,50) . s:=mod(s,50) . k10:=div(s,10) . s:=mod(s,10) . вывод "сдано:",нс . вывод "купюр по 500р. - ",k500,нс . вывод "купюр по 100р. - ",k100,нс . вывод "купюр по 50р. - ",k50,нс . вывод "купюр по 10р. - ",k10,нс кон Наберите в программе Паскаль протестируйте на значении s=4960

Answer 1

Ответ:

var s,k500,k100,k50,k10: integer;

begin

readln(s);

k500:=s div 500;

s:=s mod 500;

k100:=s div 100;

s:=s mod 100;

k50:=s div 50;

s:=s mod 50;

k10:=s div 10;

s:=s mod 10;

writeln('Сдано:');

writeln('купюр по 500р. - ',k500);

writeln('купюр по 100р. - ',k100);

writeln('купюр по 50р. - ',k50);

writeln('купюр по 10р. - ',k10);

end.

---

Answer 2

program Сдача;

var s,k500,k100,k50,k10:integer;

begin

 readln(s);

 k500:=s div 500;

 s:= s mod 500;

 k100 := s div 100;

 s:= s mod 100;

 k50:= s div 50;

 s := s mod 50;

 k10 := s div 10;

 s := s mod 10;

 writeln('сдано:');

 writeln('Куплю по 500р - ', k500);

 writeln('Куплю по 100р - ', k100);

 writeln('Куплю по 50р - ', k50);

 writeln('Куплю по 10р - ', k10);

end.

Ввод:

4960

Вывод:

4960

сдано:

Куплю по 500р - 9

Куплю по 100р - 4

Куплю по 50р - 1

Куплю по 10р - 1