//Pascal
//Для натуральных чисел
var a, s, p:integer;
begin
write('Введите число = ');
readln(a);
s := 0;
p := 1;
while (a<>0) do
begin
p := p * (a mod 10);
s := s + (a mod 10);
a := a div 10;
end;
writeln( 'Сумма цифр числа = ', s);
writeln( 'Произведение цифр числа = ', p);
end.
//Если число отрицательное
var
s, p, a, b, c: integer;
f: boolean;
begin
write('Введите число = ');
readln(a);
if a < 0 then
f := true;
a := abs(a);
b := a mod 10;
a := a div 10;
c := a mod 10;
a := a div 10;
if f = true then
begin
p := (-a) * b * c;
s := -a + b + c;
end
else
begin
s := a + b + c;
p := a * b * c;
end;
writeln('Сумма цифр числа = ', s);
writeln('Произведение цифр числа = ', p);
end.
Home
End
стерлки (вверх,вниз,право,лево)
Ctrl + стрелка вправо
Ctrl + стрелка влево
Page Up
Page Down
Ctrl + Page Down
Ctrl + Page Up
Ctrl + Home
Ctrl + End
Shift + F5
Shift + стрелка вправо/влево
1) Поставьте курсор на то место текста, где Вы собираетесь вставить сноску.
2) Вкладка «Ссылки», строка «Сноски».
3) В окне Сноски выберете нужный вид сноски:
-1 сноска внизу страницы или текста (подстрочная),
-2 концевая сноска в конце раздела или документа (затекстовая),
-3 выберете форматы сноски – цифры или символы.
4) В появившейся внизу страницы строке пишите текст сноски.
5) Поставьте курсор на место следующей сноски и повторите действие.
Вам нужно подключить библиотеки iostream и cmath.
там, где у вас две строки #include, впишите в первую <iostream>
и во вторую <cmath>. Должно получиться так :
#include <iostream>
#include <cmath>