Составьте программу для Pascal abc, решающую следующую задачу. У продавца имеются гири весом 1, 2, 5 кг. Наберите минимальное кол-во гирь для взвешивания N кг.

Question

Информатика

Аскольд

27 марта, 04:10

Составьте программу для Pascal abc, решающую следующую задачу. У продавца имеются гири весом 1, 2, 5 кг. Наберите минимальное кол-во гирь для взвешивания N кг.

+4

Ответы (1)

Знаете ответ?

Артамонка · Answer 1

Program z1;

var n:integer;

s1, s2, s5:integer;

begin

write ('n=') ; readln (n) ;

s5:=n div 5; n:=n mod 5;

s2:=n div 2; s1:=n mod 2;

writeln ('5 kg-', s5,'; 2 kg-', s2,'; 1 kg-', s1) ;

readln

end.