11.03.2013, 19:39
|
#1 (permalink) |
|
Новичок
Регистрация: 11.03.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Turbo Pascal
1Скласти програму, яка б виводила на екран день тижня за вказаним Вами його порядковим номером. 2Скласти програму яка б пропонувала Вам ввести число і потім виводила на екран кількість комп'ютерів (введене число + слово "комп'ютер" у відповідному відмінку). |
|
|
|
11.03.2013, 19:39
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, что проблема уже решилась в одной из похожих тем Turbo Pascal, файлы Подпрограммы Turbo Pascal Turbo Pascal, сетка и фигура |
|
11.03.2013, 20:04
|
#3 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const
Days:Array[1..7] of String = ('понеділок','вівторок','середа',
'четвер','п"ятниця','субота','неділя');
Var
i:Byte;
Begin
Write('i = ');
Readln(i);
Writeln(Days[i]);
Readln
End.
|
|
|
|
|
|
11.03.2013, 20:36
|
#4 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var
i:Word;
Begin
Write('i = ');
Readln(i);
Write(i,' ');
If (((i mod 100)>10) and ((i mod 100)<20)) or
((i mod 10)=0) or ((i mod 10)>4) then writeln('компьютеров')
else
If (i mod 10)=1 then writeln('компьютер')
else writeln('компьютера');
Readln
End.
|
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
