ajutor am nevoie urgenta
Anexe:
carajaslavik814:
daca vrei
Da, te rog
eu am facut doar ca amo intrebare
la tine trebuie de aflat pentru toate numerele de la 1 la 100 daca sunt palindrom?
Da, să arate care e si care nu
hmm
eu am facut ca sa poti da de la tastatura un numar care poate fi doar mai mic de 100
programu nu te lasa sa dai numar mai mare de 100
dar numar care il introduci de la tastatura se verifica si imi da true sau false
sa iti dau la raspuns?
Răspunsuri la întrebare
Răspuns de
0
Răspuns:
Program P1;
var a,b,c: Integer;
var bool: Boolean;
label 1;
begin
1 : write(' Numarul trebuie sa fie mai mic de 100');
readln(a);
b:= a;
if a > 100 then
goto 1;
while ( a <> 0 ) do
begin
c:= c * 10 + a mod 10;
a:= a div 10;
end;
if c = b then
bool:= True
else
bool:= False;
writeln(bool);
end.
Alte întrebări interesante
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Fizică,
8 ani în urmă
Engleza,
8 ani în urmă