Решаем задачи Абрамян на Кумире. Case9

Case9. Даны два целых числа: $$D$$ (день) и $$M$$ (месяц), определяющие правильную дату невисокосного года. Вывести значения $$D$$ и $$M$$ для даты, следующей за указанной.

Решение от Дмитрия:

алг Case_9(арг рез цел D,M)
нач
 D:=D+1
 выбор
  при D=32 и (M=1 или M=3 или M=5 или M=7 или M=8 или M=10): 
   D:=1 
   M:=M+1
 все
 выбор
  при D=31 и (M=4 или M=6 или M=9 или M=11):
   D:=1
   M:=M+1
 все
 выбор
  при D=29 и M=2:
   D:=1
   M:=M+1
 все
 выбор
  при D=32 и M=12:
   D:=1
   M:=1
 все
кон

алг Case_9(арг рез цел D,M)

нач

D:=D+1

выбор

при D=32 и (M=1 или M=3 или M=5 или M=7 или M=8 или M=10):

D:=1

M:=M+1

все

выбор

при D=31 и (M=4 или M=6 или M=9 или M=11):

D:=1

M:=M+1

все

выбор

при D=29 и M=2:

D:=1

M:=M+1

все

выбор

при D=32 и M=12:

D:=1

M:=1

все

кон

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

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

 var N,N1,N2,N3:integer;
       C,C1,C2,C3:string;
begin
//Task('Case18');
   read(N);
   N1:=N div 100;
   N2:= N mod 100;
   N2:=N2 div 10;
   N3:=N mod 10;

   case N1 of
   1:C1:= 'сто';
   2:C1:= 'двести';
   3:C1:= 'триста';
   4:C1:= 'четыреста';
   5:C1:= 'пятьсот';
   6:C1:= 'шестьсот';
   7:C1:= 'семьсот';
   8:C1:= 'восемьсот';
   9:C1:= 'девятьсот';
   end;
   case N2 of
   1:if N3=0 then C2:=' десять';
   2:C2:= ' двадцать';
   3:C2:= ' тридцать';
   4:C2:= ' сорок';
   5:C2:= ' пятьдесят';
   6:C2:= ' шестьдесят';
   7:C2:= ' семьдесят';
   8:C2:= ' восемьдесят';
   9:C2:= ' девяносто';
    end;
   case N3 of
   1:if N2=1 then C3:= ' одиннадцать' else C3:= ' один';
   2:if N2=1 then C3:= ' двенадцать' else C3:=' два';
   3:if N2=1 then C3:= ' тринадцать' else C3:=' три';
   4:if N2=1 then C3:= ' четырнадцать' else C3:=' четыре';
   5:if N2=1 then C3:= ' пятнадцать' else C3:=' пять';
   6:if N2=1 then C3:= ' шестнадцать' else C3:=' шесть';
   7:if N2=1 then C3:= ' семнадцать' else C3:=' семь';
   8:if N2=1 then C3:= ' восемнадцать' else C3:=' восемь';
   9:if N2=1 then C3:= ' девятнадцать' else C3:=' девять';
    end;
    C:= C1+C2+C3;
    write(C)
    end.

var N,N1,N2,N3:integer;

C,C1,C2,C3:string;

begin

//Task('Case18');

read(N);

N1:=N div 100;

N2:= N mod 100;

N2:=N2 div 10;

N3:=N mod 10;

case N1 of

1:C1:= 'сто';

2:C1:= 'двести';

3:C1:= 'триста';

4:C1:= 'четыреста';

5:C1:= 'пятьсот';

6:C1:= 'шестьсот';

7:C1:= 'семьсот';

8:C1:= 'восемьсот';

9:C1:= 'девятьсот';

end;

case N2 of

1:if N3=0 then C2:=' десять';

2:C2:= ' двадцать';

3:C2:= ' тридцать';

4:C2:= ' сорок';

5:C2:= ' пятьдесят';

6:C2:= ' шестьдесят';

7:C2:= ' семьдесят';

8:C2:= ' восемьдесят';

9:C2:= ' девяносто';

end;

case N3 of

1:if N2=1 then C3:= ' одиннадцать' else C3:= ' один';

2:if N2=1 then C3:= ' двенадцать' else C3:=' два';

3:if N2=1 then C3:= ' тринадцать' else C3:=' три';

4:if N2=1 then C3:= ' четырнадцать' else C3:=' четыре';

5:if N2=1 then C3:= ' пятнадцать' else C3:=' пять';

6:if N2=1 then C3:= ' шестнадцать' else C3:=' шесть';

7:if N2=1 then C3:= ' семнадцать' else C3:=' семь';

8:if N2=1 then C3:= ' восемнадцать' else C3:=' восемь';

9:if N2=1 then C3:= ' девятнадцать' else C3:=' девять';

end;

C:= C1+C2+C3;

write(C)

end.

Ответить

Решаем задачи Абрамян на Кумире. Case9

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

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

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