2 Мартышки = 10 кг
Мартышка = 5 кг
Мартышка + 1 кг = 3 Капуцины
5+1кг = 3 Капуцины
Капуцина = 2 кг
Капуцина+Мартышка = Гиббон
5+2 = Гиббон
Гиббон = 7 кг
Мартышка + 3 Гиббона = Павиан + Капуцина
5кг+3×7=Павиан + 2 кг
26кг=Павиан + 2 кг
24кг= Павиан.
Отсюда:
Мартышка = 5 кг.
Капуцина = 2 кг.
Гиббон = 7 кг.
Павиан = 24 кг.
Var n, i, k:integer;
begin;
readln(n);
for i:=100 to 999 do
if (i mod 10) + (i div 100) + (i div 10 mod 10) = n then begin;
writeln(i);
k:=k+1;
end;
writeln(k);
end.
Решил я Вам эту задачку в паскале. Я у себя проверил - всё работает.
Текст программы:
Program Sport;
var
m, s, i, kol: integer;
begin
for i:=1 to 30 do begin
write('Введите минуты, а затем секунды показанные спортсменом номер '+i+':');
read(m,s);
if (m<18) then inc(kol);
if (m=18) and (s<=30) then inc(kol);
end;
writeln(kol);
end.
во первых сместиться не на точку, а в точку, во вторых вот наверное то что надо 1)