Паскаль.

1) В банк положили вклад N рублей. Каждый месяц вклад увеличивается на 1%. Определить размер вклада через 5 лет.

2) Дано натурального число. Найти сумму его делителей, не кратных 3.

3) Дано натурального число. Найти его максимальную цифру.

Question

Информатика

Катюня

22 сентября, 12:11

Паскаль.

1) В банк положили вклад N рублей. Каждый месяц вклад увеличивается на 1%. Определить размер вклада через 5 лет.

2) Дано натурального число. Найти сумму его делителей, не кратных 3.

3) Дано натурального число. Найти его максимальную цифру.

+1

Ответы (1)

Знаете ответ на вопрос?

Светуля · 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).