De creat o programa in "Pascal".
conditia: este oare numarul din 4 cifre polindrom?
exemplu de polindroame: 2332 4554
Răspunsuri la întrebare
Răspuns de
0
var a,b,c,d,i:integer;
beginreadln(i);if (i>999) and (i<10000) thenbegind:=i mod 10;c:=(i div 10) mod 10;b:=(i div 100) mod 10;a:=(i div 1000) mod 10;if (a=d) thenif (b=c) thenwriteln(i,',este un numar polidron');endelse writeln('NU ESTE DIN 4 CIFRE');end.
beginreadln(i);if (i>999) and (i<10000) thenbegind:=i mod 10;c:=(i div 10) mod 10;b:=(i div 100) mod 10;a:=(i div 1000) mod 10;if (a=d) thenif (b=c) thenwriteln(i,',este un numar polidron');endelse writeln('NU ESTE DIN 4 CIFRE');end.
Anexe:
Alte întrebări interesante
Chimie,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă