Цифри на число

Публикувано на 23 април, понеделник от Данаил

Да се въведе число и да се отпечатат:

  • цифрите му в обратен ред
  • сумата от цифрите му
  • колко цифрено е
Публикувано в 9в, СИП с етикети , . Постоянна връзка.

One Response to Цифри на число

  1. kaloyan каза:
    23 април, понеделник в 14:10 
    VAR chislo,cifra,suma,cifri : integer;
BEGIN
suma:=0;
cifri:=0;
  write('vavedi chislo: '); readln(chislo);
  while chislo>0 do
  begin
    cifra:=chislo mod 10;
    write(cifra);
    suma:=suma+cifra;
    cifri:=cifri+1;
    chislo:=chislo div 10;
  end;
  writeln;
  writeln('sumata e: ',suma);
  writeln('chisloto e ',cifri,' cifreno');
readln;
END.

Вашият коментар