При сборке автомобильного двигателя нужно добиться того чтобы поршни двигателя имели одинаковую массу (размах должен быть не более 0.1 г). Увеличить массу нельзя, но можно её уменьшить, высверлить углубления в специальных местах поршня. В таблице показаны массы 8 поршней для одного двигателя 1) Определите размах масс поршней. размах 1.9
2) Укажите номера поршней и количество лишних грамм на каждом. лишнии
(Приведите полное решение)
N 1 2 3 4 5 6 7 8
m 126.1 125.0 124.2 124.4 125.6 125.1 124.5 124.2
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
read(s);
for i:=1 to 4 do a[i]:=0;
for i:=0 to length(s) do
begin
if s[i]=')' then inc(a[1]);
if s[i]='(' then inc(a[2]);
if s[i]='!' then inc(a[3]);
if s[i]='.' then inc(a[4]);
end;
if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
write('Unclear');
end.