Объяснение:
Пусть n – само число, suma – сумма его цифр, а mult – произведение. Тогда алгоритм нахождения суммы и произведения цифр можно словесно описать так:
1)Переменной suma присвоить ноль.
2)Переменной mult присвоить единицу. Присваивать 0 нельзя, так как при умножении на ноль результат будет нулевым.
3)Пока переменная n больше нуля повторять следующие действия:
4)Найти остаток от деления n на 10, то есть извлечь последнюю цифру числа.
4)Добавить извлеченную цифру к сумме и увеличить на эту цифру произведение.
6)Избавиться от последнего разряда числа n путем деления нацело на 10.
var a,b,c,s:real;
begin
writeln('a, b, c:');
readln(a,b,c);
s:=(a+b)/2*sqrt(c*c-sqr(a-b)/4);
writeln('s = ',s:5:3);
end.
Пример:
a, b, c:
5 3 4
s = 15.492