Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/14: Рейтинг темы: голосов - 14, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 15.11.2015
Сообщений: 27
1

Вывести на экран фразу "Мне k лет" правильно заменяя слово "лет" на "год" или "года"

15.11.2015, 17:08. Просмотров 2922. Ответов 4
Метки нет (Все метки)

Дано целое k. Вывести на экран фразу "Мне k лет" правильно заменяя слово "лет" на "год" или "года". С использованием условного оператора.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2015, 17:08
Ответы с готовыми решениями:

Вывести возраст вместе с последующим слово "год", "года" или "лет".
В общем вот. Ввести возраст человека (1-150 лет) и вывести его вместе с последующим слово "год",...

Составить программу, которая по введённому возрасту k формирует фразу: "Мне К лет/год/года".
Составить программу, которая по введённому возрасту k (k-количество полных лет,...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который".

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". 2) Вывести...

4
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
15.11.2015, 17:16 2
LastFr1day, Поищите внизу этой страницы, там есть похожие темы
0
0 / 0 / 0
Регистрация: 15.11.2015
Сообщений: 27
15.11.2015, 17:22  [ТС] 3
А с условным оператором нету, увы.
0
Модератор
61725 / 46203 / 31874
Регистрация: 18.05.2008
Сообщений: 111,472
15.11.2015, 17:56 4
Ну вариантов 2, или заменить case на if, или застрелиться....
0
9 / 9 / 11
Регистрация: 22.10.2015
Сообщений: 81
15.11.2015, 22:31 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program meniatletnagoda;
var 
k,y:integer;
begin
writeln ('введите ваш возраст чтобы сгенерировать фразу');
readln (k);
y := k mod 10;
writeln (y);
if y = 1 then
writeln ('мне ', k, ' год');
if k <= 20 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
if y < 5 then 
 writeln ('мне ', k, ' года'); 
end.
problem?

Добавлено через 6 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program meniatletnagoda;
var 
k,y:integer;
begin
writeln ('введите ваш возраст чтобы сгенерировать фразу');
readln (k);
y := k mod 10;
if y = 1 then
writeln ('мне ', k, ' год');
if k <= 20 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
if y < 5 then 
 writeln ('мне ', k, ' года'); 
if y >= 5 then 
  writeln ('мне ', k, ' лет');
end.
так правильнее

Добавлено через 14 минут
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
program meniatletnagoda;
var 
k,y,z:integer;
begin
writeln ('введите ваш возраст чтобы сгенерировать фразу');
readln (k);
z := 10;
while k > z*10 do begin
 z := z*10; 
 end;
 y := k mod z;
 if y = 0 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
 if y = 1 then begin
 writeln ('мне ', k, ' год');
 halt;
 end;
 if k <= 20 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
 if y < 5 then 
 writeln ('мне ', k, ' года'); 
 if y >= 5 then 
  writeln ('мне ', k, ' лет');
end.
я упоролся и дописал... Теперь работает с любыми числами
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2015, 22:31

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

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу &quot;программное обеспечение&quot; из слов &quot;программист&quot;, &quot;оборот&quot;, &quot;анчоус&quot;,...

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку
Ввести строку. Заменить все буквы &quot;е&quot; и &quot;а&quot; в тексте на &quot;8&quot; , &quot;4&quot; и &quot;6&quot;. Вывести на...

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

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово &quot;Дом&quot; и содержит ли оно буквы: &quot;а&quot; , &quot;б&quot;...


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

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

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