Автор: Anton

Anton — Sat, 05 Dec 2015 04:21:42 +0000

Поправил.
Было:

    case N mod 10 of
     0,5,6,9:write('учебных заданий.');
     1:write('учебное задание.');
     2,3,4,7,8:write('учебных задания.');
    end;

case N mod 10 of

0,5,6,9:write('учебных заданий.');

1:write('учебное задание.');

2,3,4,7,8:write('учебных задания.');

end;

Стало:

    case N mod 10 of
     0,5,6,7,8,9:write('учебных заданий.');
     1:write('учебное задание.');
     2,3,4:write('учебных задания.');
    end;

case N mod 10 of

0,5,6,7,8,9:write('учебных заданий.');

1:write('учебное задание.');

2,3,4:write('учебных задания.');

end;

Автор: olegst1975

olegst1975 — Fri, 04 Dec 2015 21:32:41 +0000

В последнем case 7,8 перенести к заданий. Либо вообще объединить с предыдущим

[crayon-69d42ebacdfef541396587 inline="true" ]
case (n mod 10) of
        0:write(' заданий');
        1:write(' одно учебное задание');
        2:write('два учебных задания');
        3:write(' три учебных задания');
        4:write(' четыре учебных задания');
        5:write(' пять учебных заданий');
        6:write(' шесть учебных заданий');
        7:write(' сем учебных заданий');
        8:write(' восемь учебных заданий');
        9:write(' девять учебных заданий');
        end;

[crayon-69d42ebacdfef541396587 inline="true" ]

case (n mod 10) of

0:write(' заданий');

1:write(' одно учебное задание');

2:write('два учебных задания');

3:write(' три учебных задания');

4:write(' четыре учебных задания');

5:write(' пять учебных заданий');

6:write(' шесть учебных заданий');

7:write(' сем учебных заданий');

8:write(' восемь учебных заданий');

9:write(' девять учебных заданий');

end;

[/crayon]

Комментарии: Решаем задачи Абрамян на Паскале. Case17

Автор: Anton

Автор: olegst1975