Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Turbo Pascal (http://www.tehnari.ru/f41/t86242/)

Vadimxz8

11.03.2013 19:39

Turbo Pascal

помогите пожалуста
1Скласти програму, яка б виводила на екран день тижня за вказаним
Вами його порядковим номером.
2Скласти програму яка б пропонувала Вам ввести число і потім виводила
на екран кількість комп'ютерів (введене число + слово "комп'ютер" у
відповідному відмінку).

Daniellos

11.03.2013 19:40

Мова спілкування на форумі - російський

Vladimir_S

11.03.2013 20:04

Цитата:

Сообщение от Vadimxz8 (Сообщение 879180)

1Скласти програму, яка б виводила на екран день тижня за вказаним Вами його порядковим номером.

Ось вона:

Код:

Const

 Days:Array[1..7] of String = ('понеділок','вівторок','середа',

                               'четвер','п"ятниця','субота','неділя');

Var

 i:Byte;

Begin

 Write('i = ');

 Readln(i);

 Writeln(Days[i]);

 Readln

End.

Vladimir_S

11.03.2013 20:36

Цитата:

Сообщение от Vadimxz8 (Сообщение 879180)

2Скласти програму яка б пропонувала Вам ввести число і потім виводила на екран кількість комп'ютерів (введене число + слово "комп'ютер" у відповідному відмінку).

Українських відмінків не знаю. Вибачте.

Код:

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.

Часовой пояс GMT +4, время: 00:25.