Цифровой корень. Код писать на если вы не знаете ответ или можете дать ответ только в обмен на другой, - id1080384220220717 от MaksimVip12 17.07.2022 15:13

Question

Информатика: Цифровой корень. Код писать на если вы не знаете ответ или можете дать ответ только в обмен на другой, то не отвечайте. Цифровой корень натурального числа получается следующим образом. Складываются все цифры данного числа. Процесс повторяется, пока в результате не будет получено однозначное число, которое и называется цифровым корнем числа. Входные данные На вход программе подается натуральное число n≤10^9. Выходные данные Выведите его цифровой корень.

MaksimVip12 · Accepted Answer

Var h,h1,m,m1,k,k1,b:integer;
begin
write('h, h1: '); readln(h,h1);
write('m, m1: '); readln(m,m1);
write('k, k1: '); readln(k,k1);
if h div h1 < m div m1
then b:=h div h1 else b:=m div m1;
if k div k1 < b then b:=k div k1;
writeln('b = ',b);
end.

Пример:
h, h1: 1000 100
m, m1: 600 50
k, k1: 500 50
b = 10

С определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.

MOGZ ответил