• Вопрос по информатике:

    Написать программу (с program. var и тд)
    Дано семизначное число. Найти сумму,произведение и среднее арифметическое этих цифр

    • Автор:

      pockets

  • Ответ:

    var a,b,i,s,p:integer;beginreadln(a);s:=0; p:=1;for i:=1 to 7 do begin b:=a mod 10; s:=s+b; p:=p*b; a:=a div 10; end;writeln('s = ',s,' p = ',p,' sr = ',s/7:5:2);end.Пример:1389546s = 36 p = 25920 sr = 5.14

    • Отвечал:

      lawrenceagjz
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска