помощ в решении

[RUSt88]

shaitan, ты взялся за задачи повышенной сложности, а из строки число не можешь выцепить

может рано, а?

[Shaitan63]

это подготовка к тесту это должны были объснить но всем преподам пофиг

[Shaitan63]

Сообщение от RUSt88

где же 3 раза?
1) dave 200 3 laura owen vick
dave отдал 200, знач у dave сейчас -200
2) owen 500 1 dave
dave получил 500, знач у dave сейчас -200 + 500 = 300

все

в ответе вот что должно быть

dave 302
laura 66
owen -359
vick 141
amr -150

[Shaitan63]

да из строки выцепить число я могу, просто невкажлой строке есть число

[Serge_Bliznykov]

задача "Жадные дарители"

Почему у Dave 302..
потому что Вы забыли (не заметили) одно из условий задачи:

Все числа целые. Каждый человек отдает одинаковую максимально возможную целую сумму денег каждому своему другу. Все не розданные деньги остаются у их хозяина в качестве прибыли.

dave 200 3 laura owen vick
Дейв не может раздать свой 200 на трёх человек (потому что 200 на 3 нацело не делится). Поэтому он раздаёт им по 66 (всего 198), а 2 у него остаётся. + 300 ему дарит Owen - итого у него 302.

[Serge_Bliznykov]

да из строки выцепить число я могу, просто невкажлой строке есть число

s := 'Ivanov 55';
i:=1;
while (i<=length(s)) and not (s[i] in ['0'..'9']) then inc(i);
if i<=length(s) then begin
   s2 := copy(s, i, length(s)-i+1);
   val(s2, Num, j);
   if j<>0 then WriteLn('После числа в строке ещё есть какая-то дрянь...')
   else WriteLn('есть число, оно равно ',Num);
end
else
  WriteLn('В строке нет числа!')

[Shaitan63]

овен ему 500 даёт а не 300, но всёравно у дейва 302

[Shaitan63]

Сообщение от Serge_Bliznykov

s := 'Ivanov 55';
i:=1;
while (i<=length(s)) and not (s[i] in ['0'..'9']) then inc(i);
if i<=length(s) then begin
   s2 := copy(s, i, length(s)-i+1);
   val(s2, Num, j);
   if j<>0 then WriteLn('После числа в строке ещё есть какая-то дрянь...')
   else WriteLn('есть число, оно равно ',Num);
end
else
  WriteLn('В строке нет числа!')

length блин точно через него моно! спасибо типерь состряпаю
осталось только 1 и 4 задача

[Shaitan63]

вот сделол третью задачу но она незапускается, но по логике всё правильно, может быть кто-нибуть знает в чёи мая ошибка?

[Shaitan63]

ну что там?