n – число; sum – сумма цифр; mult – произведение цифр.
Алгоритм решения задачи:
sum присвоить ноль.mult присвоить единицу (при умножении на ноль результат будет нулевым).Пока n больше нулянайти остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;избавиться от последнего разряда числа n путем деления нацело на число 10.
2. Длинный "школьный" вариант ("почувствуйте разницу")
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 var a:array[1..50] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 50 do begin a[i]:=Random(31)-10; Write(a[i],' '); if (a[i]>0) and Odd(i) then s:=s+a[i] end; Writeln; Writeln('Sпол.неч = ',s) end.
var A, B, C, P, S:real; begin writeln('Введите сторону A'); readln(A); writeln('Введите сторону B'); readln(B); writeln('Введите сторону C'); readln(C); P:=(A+B+C)/2; S:=sqrt(P*(P-A)*(P-B)*(P-C)); if(A+B<=C) or (A+C<=B) or (B+C<=A) then writeln('Треугольник с такими сторонами не существует') else writeln ('Площадь треугольника по теореме Герона равна ', S); end.
Дано число. Найти сумму и произведение его цифр.
РешениеОписание переменных:
n – число;
sum – сумма цифр;
mult – произведение цифр.
Алгоритм решения задачи:
sum присвоить ноль.mult присвоить единицу (при умножении на ноль результат будет нулевым).Пока n больше нулянайти остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;избавиться от последнего разряда числа n путем деления нацело на число 10.