Дано трехзначное число. Найти число десятков и единиц в том числе, сумму и произведение его цифрам

@wowan30002 · Регистрация: 23.05.2012

Дано трехзначное число.Знайты число десятков и единиц в том числе, сумму и произведение его цифрам

@Das Gespenst · 12.06.2012, 00:29

Как-то так, наверное.

Pascal

program z;
uses crt;
var s,p,b,a,a1,k,k1:integer;
c:array [1..100] of integer;
begin
     clrscr;
     writeln('Введите число');
     readln(b);
     a:=b;
     p:=1; s:=0; k:=0;
     while a<>0 do
           begin
                a1:=a mod 10;
                k:=k+1;
                c[k]:=a1;
                s:=s+a1;
                p:=p*a1;
                a1:=a div 10;
                a:=a1;
           end;
     writeln('Сумма цифр числа ',b,' - ',s);
     writeln('Произведения цифр числа ',b,' - ',p);
     writeln('Число единиц в числе ',b,' - ',c[1]);
     if k>1
        then
            writeln('Число десятков в числе ',b,' - ',c[2])
     else
         writeln('В числе ',b,' нет десятков!');
     readln;
end.

@wowan30002 3 / 3 / 0 Регистрация: 23.05.2012 Сообщений: 195
		1
	Дано трехзначное число. Найти число десятков и единиц в том числе, сумму и произведение его цифрам 11.06.2012, 21:36. Показов 6474. Ответов 1 Метки нет (Все метки) Дано трехзначное число.Знайты число десятков и единиц в том числе, сумму и произведение его цифрам __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Дано трехзначное число. Найти число десятков и единиц в том числе, сумму и произведение его цифрам

Решение