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

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

Answer 2

Ответ:

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 3

Конечно, вот перевод программы на язык Паскаль:

pascalCopy code
program Change;
var
  s, k500, k100, k50, k10: Integer;
begin
  writeln('Введите сумму: ');
  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('Сдано: ', s);
  writeln('Купюр по 500р. - ', k500);
  writeln('Купюр по 100р. - ', k100);
  writeln('Купюр по 50р. - ', k50);
  writeln('Купюр по 10р. - ', k10);
end.

Протестируем программу на значении s = 4960:

makefileCopy code
Введите сумму:
4960
Сдано: 0
Купюр по 500р. - 9
Купюр по 100р. - 4
Купюр по 50р. - 1
Купюр по 10р. - 1

Программа успешно работает и выдаёт ожидаемый результат.