1. Напишите код программы, который
будет вычислять площадь фигуры (4
)​

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

Допустимые входные данные: 42, 26, 50, 82

Недопустимые входные данные: 20, 28, 40, 101

Объяснение:

Идем от обратного. Перепишем алгоритм с последней цифры до первой: 21221 и командам присвоим обратные действия, то есть команда 1) станет "отними 1", а команда 2) "раздели на 2"

Проверим каждое число получившимся алгоритмом, если на выходе получается натуральное число, считаем, что алгоритм для этого числа допустим.

Например, число 42.

42/2 = 21

21-1 = 20

20/2 = 10

10/2 = 5

5-1 = 4

4 - натуральное число, следовательно для числа 42 алгоритм допустим.

Пример недопустимого алгоритма на примере числа 20:

20/2 = 10

10-1 = 9

9/2 = 4,5 - недопустимо, так как это число не может получиться при умножении целого натурального числа на 2