Am facut un program in pascal care imi da inversul unui nr.
Toate bune si frumoase, la 0 imi da eroare, asa cum am programat, la orice nr pana in 4 cifre imi da inversul, DAR daca introduc un nr mai mare de 4 cifre imi iese subit din program, si habar n-am de ce se intampla asta. Ma puteti ajuta?
Mai jos este codul
Uses crt;
Var x, s: integer;
Begin
s:=0;
Writeln('Introdu un numar si apasa Enter');
Write('Numarul este = '); Read(x);
if (x=0) then
Begin
write ('Eroare, numarul nu poate fi 0');
Readkey;
End;
if (x0) then
Begin
repeat s:=s*10+x mod 10; x:=x div 10;
until x=0;
Write('Inversul numarului este: ', s);
End;
Readkey;
End.

Nu ai scris un răspuns pentru această întrebare, aşa că nu avem conţinut pe care să-l publicăm

În răspunsul pe care vrei să îl postezi au fost găsite greşeli de scriere. Ele au fost corectate automat şi le poţi vedea marcate mai jos

Nu poţi posta acest răspuns pentru că linkul pe care l-ai inclus este suspicios, iar pe TPU pirateria nu este încurajată.

Te rugăm să nu faci referire la site-uri aflate în ilegalitate şi să nu postezi linkuri spre materiale postate pe internet fără respectarea drepturilor de autor (programe, jocuri, filme sau muzică piratată)

Răspunsurile ce conţin cuvinte de genul pot fi postate doar la întrebări din categoria Dragoste şi Sex