Turbo Pascal

[Vadimxz8]

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

 

[Daniellos]

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

 

[Vladimir_S]

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

Ось вона:

Const
 Days:Array[1..7] of String = ('понеділок','вівторок','середа',
                               'четвер','п"ятниця','субота','неділя');
Var
 i:Byte;
Begin
 Write('i = ');
 Readln(i);
 Writeln(Days[i]);
 Readln
End.

 

[Vladimir_S]

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.