Регистрация
nurik139
29.06.2020 15:44
Информатика
Есть ответ 👍

Навигациялық есептеулер сызғышы мерзімі и т.д умоляю

291
476
Посмотреть ответы 1

Ответы на вопрос:

alexgettx
alexgettx
4,6(54 оценок)
// pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring(' > ');   write('-> ');   var n: =s.length;   if n< 4 then writeln(s)   else       while true do begin           var p: =n mod 3; p: =p=0? 3: p;           write(s[: p+1],',');           s: =s[p+1: ];           n: =s.length;           if n=3 then begin writeln(s); exit end           end end. примеры   > 1231423454123112313211 -> 1,231,423,454,123,112,313,211   > 123456 -> 123,456   > 13 -> 13

Популярно: Информатика