Question

На токарном станке работало три токаря, первый за смену изготовил m деталей, второй на 45% меньше первого, а третий сколько первый и второй вместе. Вывести сколько изготовил каждый токарь и сколько вместе

Answer 1

var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.

Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62