Sa se scrie un program Pascal care afiseaza rasturnatul unui numar n. De exemplu se introduce 2543, se va afisa 3452.
Răspunsuri la întrebare
Răspuns de
1
program rasturnat;
var n, num, cif: integer;
begin
write('introdu numar natural n='); read(n);
num:=0;
while (n>0) do
begin
cif:=n mod 10;
num:=num*10 + cif;
n:= n div 10;
end;
writeln(' rasturnatul lui este ', num);
end.
grigore2018:
Cred ca mai simplu ar fi astfel:
var s: string;
i: integer;
begin
writeln('Введите число');
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
end.
i: integer;
begin
writeln('Введите число');
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
end.
Si scuze am scris in rusa :)
length este o functie care intoarce lungimea sirului
da, cunosc varianta asta...
Alte întrebări interesante
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Limba română,
8 ani în urmă
Limba română,
9 ani în urmă