Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2014, 13:54
Ответы с готовыми решениями:

Заменить в строке "." на ";", "." на ".", убрать лишние пробелы. Не могу доделать один кусочек
Не соображу, как уместить два действия так, чтобы работали оба, а именно, исходные &quot;.&quot; заменить на...

Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран
Заменить в строке &quot;Мама мыла раму&quot; буквы &quot;а&quot; на знак &quot;_&quot; . Вывести полученный массив на экран....

В чем ошибка? Когда печатаю "а" или "б" все работает, а когда "А" или "Б" то он не меняет "А" на "Б"
{Программа заменяет буквы &quot;а&quot; на буквы &quot;б&quot; в введенном тексте} var stroka : string; i :...

Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"
Как скрыть в graphABC кнопки &quot;свернуть&quot;, &quot;Развернуть&quot;, &quot;Закрыть&quot;

3
Модератор
62942 / 46956 / 32360
Регистрация: 18.05.2008
Сообщений: 113,771
26.09.2014, 16:35 2
Вроде так, потестируйте.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.
1
1 / 1 / 0
Регистрация: 20.04.2014
Сообщений: 140
27.09.2014, 00:25  [ТС] 3
Спасибо большое за помощь!
Программа работает, только при вводе 0 0 не выводит ответ 0 минут 0 секунд. Проблему исправила, программа теперь абсолютно рабочая!
Еще раз спасибо!
0
Модератор
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.09.2014, 06:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Как перевести числа с "String" в "integer" или "Real"?
как перевести числа с &quot;String&quot; в &quot;integer&quot; или &quot;Real&quot;?

Составьте программу замены в слове Х всех букв "а" и "я" на слог "по"
Составьте программу замены в слове Х всех букв &quot;а&quot; и &quot;я&quot; на слог &quot;по&quot;. заранее спасибо!

Проверить правильность написания сочетаний "жи" и "ши".Если надо, то исправить и вывести на экран
var s: string; i, k,err: byte; begin WriteLn('Введите строку:'); ReadLn(s); for...

Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести "НЕТ"
Ввести слово, вывести &quot;ДА&quot; если первый и последний символ совпадает, в противном случае вывести...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.