Question

Ma poate ajuta cineca cu o problema ?

" Scrieti un subprogram care sa determine si sa intoarca ultima cifra para dintr-un numar natural nr, transmis ca paretru . "

Multumesc frumos

Answer 1

Program Tema;
var n:integer;
function ultima_cifra_para(n:integer):integer;
begin
var x:integer;
while n>0 do
begin
x=n%10;
if not(odd(x)) then
  break;

n:=n/10;
end;
if n=0 then
ultima_cifra_para:=-1;
else
ultima_cifra_para:=x;
end;

Begin
writeln('Introduceti numarul: ');
readln(n);
if ultima_cifra_para(n)=-1 then
writeln('Numarul contine numai cifre impare');
else
writeln('Ultima cifra para este:',ultima_cifra_para(n));
End.