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

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).

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.