Известно, что 6 человек из класса играют только в волейбол, 2 – только в футбол, 5 – только в баскетбол. - id476787020200702 от ЛирияПатиева 02.07.2020 06:20

Question

Информатика: Известно, что 6 человек из класса играют только в волейбол, 2 – только в футбол, 5 – только в баскетбол. только в волейбол и футбол умеют играть 3 человека, в футбол и баскетбол – 4, в волейбол и баскетбол – 2. один человек из класса умеет играть во все игры, 7 не умеют играть ни в одну игру. сколько всего человек в классе? сколько человек умеют играть в футбол? сколько человек умеют играть в волейбол? (желательно с полным решением).

ЛирияПатиева · Accepted Answer

{-}
const
ch_1: array[1..19] of string = ('один', 'два', 'три', 'четыре', 'пять', 'шесть','семь', 'восемь', 'девять', 'десять', 'одиннадцать', 'двенадцать', 'тринадцать','четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать');

ch_2: array [2..9] of string = ('двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто');

ch_3: array [1..9] of string = ('сто', 'двести', 'триста', 'четыреста', 'пятьсот', 'шестьсот', 'семьсот', 'восемьсот', 'девятьсот');

var
n : 0..1000;
begin
repeat
write ('Введите натуральное число, меньшее 1000: ');
readln (n);
until n in [1..999];

if n in [100..999] then write (ch_3[n div 100], ' ');
if (n mod 100) in [20..99] then
begin
write (ch_2[(n mod 100)div 10], ' ');
if (n mod 10) <> 0 then write (ch_1[n mod 10]);
end
else
if (n mod 100) <>0 then write (ch_1[n mod 100]);

end.

MOGZ ответил