Вывести "До конца матча осталось N минут S секунд", согласовав "минут" и "секунд" с числовыми значениями

@LittleMonkey · Регистрация: 20.04.2014

Для заданых натуральных чисел N и S (1<=N, S<60), вывести предложение "До конца матча осталось N минут S секунд", соглосовав слова "осталось" и "минут" с чилом N и слово "секунд" с числом S.

@Puporev · 26.09.2014, 16:35

Вроде так, потестируйте.

Pascal

var n,s:integer;
    st:string;
begin
repeat
writeln('Ââåäèòå ÷èñëî ìèíóò è ñåêóíä îò 1 äî 59');
readln(n,s);
until (n in [1..59])and(s in [1..59]);
st:='Äî êîíöà ìàò÷à ';
case n of
11..14:st:=st+'îñòàëîñü '+inttostr(n)+' ìèíóò ';
else
 case n mod 10 of
 1:st:=st+'îñòàëàñü '+inttostr(n)+' ìèíóòà ';
 2..4:st:=st+'îñòàëîñü '+inttostr(n)+' ìèíóòû ';
 0,5..9:st:=st+'îñòàëîñü '+inttostr(n)+' ìèíóò ';
 end;
end;
case s of
11..14:st:=st+inttostr(s)+' ñåêóíä';
else
 case s mod 10 of
 1:st:=st+inttostr(s)+' ñåêóíäà';
 2..4:st:=st+inttostr(s)+' ñåêóíäû';
 0,5..9:st:=st+inttostr(s)+' ñåêóíä';
 end;
end;
write(st)
end.

@LittleMonkey · 27.09.2014, 00:25 **[ТС]**

Спасибо большое за помощь!
Программа работает, только при вводе 0 0 не выводит ответ 0 минут 0 секунд. Проблему исправила, программа теперь абсолютно рабочая!
Еще раз спасибо!

@Puporev · 27.09.2014, 06:57

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

только при вводе 0 0 не выводит ответ 0 минут 0 секунд.

Так условие свое читайте внимательно

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

чисел N и S (1<=N, S<60),

@LittleMonkey 1 / 1 / 0 Регистрация: 20.04.2014 Сообщений: 140
		1
	Вывести "До конца матча осталось N минут S секунд", согласовав "минут" и "секунд" с числовыми значениями 26.09.2014, 13:54. Просмотров 638. Ответов 3 Метки нет (Все метки) Для заданых натуральных чисел N и S (1<=N, S<60), вывести предложение "До конца матча осталось N минут S секунд", соглосовав слова "осталось" и "минут" с чилом N и слово "секунд" с числом S. 0

@LittleMonkey 1 / 1 / 0 Регистрация: 20.04.2014 Сообщений: 140
	27.09.2014, 00:25 [ТС]	3
	Спасибо большое за помощь! Программа работает, только при вводе 0 0 не выводит ответ 0 минут 0 секунд. Проблему исправила, программа теперь абсолютно рабочая! Еще раз спасибо! 0

@Puporev Модератор 62942 / 46956 / 32360 Регистрация: 18.05.2008 Сообщений: 113,771
	27.09.2014, 06:57	4
	Сообщение от LittleMonkey только при вводе 0 0 не выводит ответ 0 минут 0 секунд. Так условие свое читайте внимательно Сообщение от LittleMonkey чисел N и S (1<=N, S<60), 0

Опции темы