Перевести из Pascal в Сvar a, b: longint; n,

Перевести из Pascal в С


var
a, b: longint;
n, m: byte;
begin
readln(a);
readln(n);
b := 0;
while a gt; 0 do begin
m := a mod 10;
if m lt;gt; n then
b := b * 10 + m;
a := a div 10;
end;
while b gt; 0 do begin
a := a * 10 + b mod 10;
b := b div 10;
end;
writeln(a);
end.

Мирослава Гловделис 2019-06-03 21:40:40

Просто С, или С++.