Переведите программу о сдаче с языка Кумир на язык Паскаль
алг Сдача
нач
. цел 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

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.

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