1.для каждой введенной цифры (0-9) вывести соответствующее ей название на языке (0 - zero, 1 - one, 2 - two, 2.составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца на языке. turbo pascal

Var n: integer; begin; readln(n); case n of 0: writeln('zero'); 1: writeln('one'); 2: writeln('two'); 3: writeln('three'); 4: writeln('five'); 6: writeln('six'); 7: writeln('seven'); 8: writeln('eight'); 9: writeln('nine'); else writeln('some number'); end; end.2.var n: integer; begin; readln(n); case n of 1: writeln('january'); 2: writeln('february'); 3: writeln('march'); 4: writeln('april'); 5: writeln('may'); 6: writeln('june'); 7: writeln('july'); 8: writeln('august'); 9: writeln('september'); 10: writeln('october'); 11: writeln('november'); 12: writeln('december'); else writeln('some number'); end; end.

ответ 138 номер последнего

решение 1024/8+10=128+10=138

 

1 байит= 8 бит