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

Case17. Дано целое число в диапазоне 10–40, определяющее количество учебных заданий по некоторой теме. Вывести строку-описание указанного количества заданий, обеспечив правильное согласование числа со словами «учебное задание», например: 18 — «восемнадцать учебных заданий», 23 — «двадцать три учебных задания», 31 — «тридцать одно учебное задание».

Решение:

program Case17;
var
  N:Integer;
begin
  Write('Кол-во: ');
  Readln(N);
  if (N div 10) = 1 then
  begin
   case N of
     10:write('десять учебных заданий. ');
     11:write('одинадцать учебных заданий.');
     12:write('двенадцать учебных заданий.');
     13:write('тринадцать учебных заданий.');
     14:write('четырнадцать учебных заданий.');
     15:write('пятнадцать учебных заданий.');
     16:write('шестнадцать учебных заданий.');
     17:write('семнадцать учебных заданий.');
     18:write('восемнадцать учебных заданий.');
     19:write('девятнадцать учебных заданий.');

    end;
  end
  else
   begin
    case N div 10 of
     2:write('двадцать ');
     3:write('тридцать ');
     4:write('сорок ');
    end;

    case N mod 10 of
     1:write('одно ');
     2:write('два ');
     3:write('три ');
     4:write('четыре ');
     5:write('пять ');
     6:write('шесть ');
     7:write('семь ');
     8:write('восемь ');
     9:write('девять ');
    end;

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

program Case17;

var

N:Integer;

begin

Write('Кол-во: ');

Readln(N);

if (N div 10) = 1 then

begin

case N of

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

11:write('одинадцать учебных заданий.');

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

13:write('тринадцать учебных заданий.');

14:write('четырнадцать учебных заданий.');

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

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

17:write('семнадцать учебных заданий.');

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

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

end;

end

else

begin

case N div 10 of

2:write('двадцать ');

3:write('тридцать ');

4:write('сорок ');

end;

case N mod 10 of

1:write('одно ');

2:write('два ');

3:write('три ');

4:write('четыре ');

5:write('пять ');

6:write('шесть ');

7:write('семь ');

8:write('восемь ');

9:write('девять ');

end;

case N mod 10 of

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

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

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

end;

end.

Другие задачи из раздела Case можно посмотреть здесь.

Комментарии 2

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

[crayon-673b0e5fca9d4032707279 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-673b0e5fca9d4032707279 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(' девять учебных заданий');

[/crayon]

Ответить

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

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

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

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

Стало:

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

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

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ