// 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
alekseysokolov29816
03.02.2020
#include< iostream> using namespace std; int main() { setlocale(lc_all,"rus"); int a, b = 0; cout < < "введите натуральное число: ", cin > > a; while(a > 0) { if (a % 10 ! = 1 & & a % 10 ! = 5) { b = b*10 + (a % 10); } a = a / 10; } while(b > 0) { a = a*10 + (b % 10); b = b / 10; } cout < < a; return 0; }