Перевести из Pascal в С
var
a, b: longint;
n, m: byte;
begin
readln(a);
readln(n);
b := 0;
while a > 0 do begin
m := a mod 10;
if m <> n then
b := b * 10 + m;
a := a div 10;
end;
while b > 0 do begin
a := a * 10 + b mod 10;
b := b div 10;
end;
writeln(a);
end.
var
a, b: longint;
n, m: byte;
begin
readln(a);
readln(n);
b := 0;
while a > 0 do begin
m := a mod 10;
if m <> n then
b := b * 10 + m;
a := a div 10;
end;
while b > 0 do begin
a := a * 10 + b mod 10;
b := b div 10;
end;
writeln(a);
end.
More Questions From This User See All
Answers & Comments
Verified answer
#include <stdio.h>int main(void) {
long int a, b=0;
int n, m;
scanf("%d",&a);
scanf("%d",&n);
while (a>0) {
m = a % 10;
if (m != n) b = b*10+m;
a = a / 10;
}
while (b != 0) {
a = a*10 + b%10;
b = b/10;
}
printf("a = %d",a);
return 0;
}
Пример:
125272
157