Урок 11. Подготовка к районной олимпиаде

1. Рассмотреть решение ДЗ

program case18;
var a, a0,a1,a2: integer;
s:string;
begin
writeln('Дано целое число в диапазоне 100–999. Вывести строку-описание данного числа, например: 256 — «двести пятьдесят шесть», 814 — «восемьсот четырнадцать».');
write('Введите целое число от 100 до 999: ');
read(a);
a2:=a div 100;
case a2 of
1 : s:='сто ';
2 : s:='двести ';
3 : s:='триста ';
4 : s:='четыресто ';
5 : s:='пятьсот ';
6 : s:='шестьсот ';
7 : s:='семьсот ';
8 : s:='восемьсот ';
9 : s:='девятьсот ';
end;
a1:=a div 10 mod 10;
a0:=a mod 10;
if (a1<>1) then    begin
            case a1 of
             0 : s:=s;
             2 : s:=s+'двадцать';
             3 : s:=s+'тридцать';
             4 : s:=s+'сорок';
             5 : s:=s+'пятьдесят';
             6 : s:=s+'шестьдесят';
             7 : s:=s+'семьдесят';
             8 : s:=s+'восемьдесят';
             9 : s:=s+'девяносто';
            end;
            case a0 of
             0 : s:=s;
             1 : s:=s+' один';
             2 : s:=s+' два';
             3 : s:=s+' три';
             4 : s:=s+' четыре';
             5 : s:=s+' пять';
             6 : s:=s+' шесть';
             7 : s:=s+' семь';
             8 : s:=s+' восемь';
             9 : s:=s+' девять';
            end;
                  end
          else  begin
            case a0 of
             0 : s:=s+' десять';
             1 : s:=s+' одиннадцать';
             2 : s:=s+' двенадцать';
             3 : s:=s+' тринадцать';
             4 : s:=s+' четырнадцать';
             5 : s:=s+' пятнадцать';
             6 : s:=s+' шестнадцать';
             7 : s:=s+' семнадцать';
             8 : s:=s+' восемнадцать';
             9 : s:=s+' девятнадцать';
            end;
                 end;
if (a<100) or (a>999) then writeln ('Вы ввели неверное число: ')
                      else writeln ('Вы ввели число ',s);
end.

2. Решение олимпиадных задач прошлых лет

Задача "Гостиница" 2011 г.

Для проверки (решения) используем следующую таблицу:

Задача "Треугольная таблица" 2012 г.

3. Домашнее задание (олимпиадная задача)

Или задача из электронного учебника: case19.