Составить программу нахождения длины окружности по указанному радиусу R.Используя...

Question

Составить программу нахождения длины окружности по указанному радиусу R.Используя указатели.(язык с++)
Дано трехзначное число. Найти произведение цифр числа.(язык Паскаль)
Меньшее из трех чисел увеличить в 3 раза.(язык с++)

Answer 1

Сделаю только второе задание (Pascal), ибо с++ не изучал.
Program z2;
var
sum,n:integer;
begin
writeln('Введите целое трёхзначное число (например 100)');
readln(n);
sum:=(n div 100) + (n div 10 mod 10) + (n mod 10);
writeln('Сумма цифр числа: ',sum);
end.