Умные люди есть тут?;)) ) Помогите, пожалуйста, с домашней работой по информатике. Нужно в Паскале составить алгоритм реш

Доброго времени суток.

Пусть n какое-то целое число. Тогда сумму и произведение его цифр можно найти так.

S := 0;
P := 1;
while n > 0 do begin
d := n mod 10; {выделяем младший разряд числа}
n := n div 10; {и отбрасываем его}
S := S + d; {сумма}
P := P * d; {произведение}
end;

Остальное сами.

По другим задачам. Подозреваю, что они тоже на применение операторов целочисленного деления и получения остатка от деления (div и mod). Подсказка: Если разделить миллиметры на 10, то получим сантиметры, остаток же от деления даст миллиметры, которых не хватило до полного сантиметра.

Удачи!

Помогать неучам - не признак ума.

2) Миллиметры разделить на 10, получишь дробное число в сантиметрах
4) Граммы разделить на 1000 получишь дробное число в килограммах
5) Метры делишь на 1000 получаешь дробное число в километрах

1) x:=0 берешь от числа по одной цифре и прибавляешь это к переменной x
3) x:=1берешь от числа по одной цифре и умножаешь это на переменную x

А мы по-старому:
for x:=1 to length(str(k)) do

s:=s+val(s);
write(s);

Ну, думаю, с типами и синтаксисом разберетесь!

если 1 на pascal писать, то самое легкое для понимания решение - 3х значное число можно перевести в строку, перебрать строку от 1 элемента к 3, к какой-то переменной прибавлять N элемент строки переведенный в числу