Question

Паскаль.
1) В банк положили вклад N рублей. Каждый месяц вклад увеличивается на 1%. Определить размер вклада через 5 лет.
2) Дано натурального число. Найти сумму его делителей, не кратных 3.
3) Дано натурального число. Найти его максимальную цифру.

Answer 1

1)
uses    crt;
var   m,p,s:real;
 k,n:integer;
begin   clrscr; 
 write('Вклад(N)руб.: ');readln(m); 
 write('Кол-во лет: ');readln(n); 
 write('Процент: ');readln(p); 
 k:=1; 
 s:=m; 
 for k:=1 to n do 
 s:=s+s/100*p; 
 writeln('s=',s); 
 readkey; 
 end.
Не могу понять условия 2) и 3).