Program rln; var x: byte; begin writeln('введите число, чтобы узнать, какому месяцу оно соответствует: '); readln(x); case x of 0: writeln('такого месяца не существует'); 1: writeln('январь.'); 2: writeln('февраль.'); 3: writeln('март.'); 4: writeln('апрель.'); 5: writeln('май.'); 6: writeln('июнь.'); 7: writeln('июль.'); 8: writeln('август.'); 9: writeln('сентябрь.'); 10: writeln('октябрь.'); 11: writeln('ноябрь.'); 12: writeln('декабрь.'); 13..1000: writeln('такого месяца не существует.'); end; end.
Дмитрий_Владимирович1162
18.05.2023
// pascalabc.net 3.2, сборка 1361 от 12.12.2016 // внимание! если программа не работает, обновите версию! begin var a: =arrrandomreal(readinteger('n=',10); a.println; a: =a.select((x,i)-> i mod 2=0? x+1: x-1).toarray; a.println end. пример n= 10 -9.05843428292239 -4.25451094017108 9.66351874157019 -3.1105665178553 4.8065062215582 -2.02809873597142 4.59844561973514 -4.45959216657076 1.37816560984504 -7.69115956392659 -8.05843428292239 -5.25451094017108 10.6635187415702 -4.1105665178553 5.8065062215582 -3.02809873597142 5.59844561973514 -5.45959216657076 2.37816560984504 -8.69115956392659