Задача на тему цикл.

[Roman1295]

Добрый вечер! Снова проблема у меня с этим Паскалем. На этот раз даны 2 задачи:
1) Ввести число. Получить другое число путем замены нулей на 9
Как я понимаю, использовать надо цикл, и подозреваю, что с постусловием? Или же цикл по условию? Т.е. While или Repeat?
Ну, объявляем и вводим переменную (а может и две, не понимаю пока что сколько необходимо); дальше по идее должен идти цикл, но какое условие он должен содержать? А что потом? Наверное, с пом. mod и div узнать, содержит ли число нули?
Будьте добры, разъясните мне. Хочу хоть одну программу сам написать, без посторонней помощи, но пока безрезультатно.
PS Вот что попытался накодить:

var x:integer;
begin
readln(x);
while x <> 0 do
x:= x div 10 = 0;
If x=o then
x:=9;
writeln(x);
end.

И 2 задача, самая тяжелая:
(0,001)^2+(0,002)^2/2!+ (0,003)^2/3!+ …
Здесь, как я понимаю, нужен цикл повтора, а учитель прог-я говорила, нужно установить погрешность (в данном случае - переменная какая-то)
В голове уже есть начало алгоритма, но не могу написать код.
Ввожу переменные, присваиваю им значения по умолчанию, начинаю цикл (repeat), складываю числа до тех пор пока деление будет меньше введенной погрешности и вывожу результат. Прошу помощи, как это реализовать на языке паскаля. Спасибо.

[Poma][a]

проблема у меня с этим Паскалем

на языке паскаля

ужас...

var
     s : string;
     i : Integer;

begin
     ReadLn (s);
 
     for i := 1 to Length(s) do
             if s[i] = '0' then 
                     s[i] := '9';

     WriteLn (s)
end.