Регистрация
mischkulentsov
20.08.2022 19:01
Информатика
Есть ответ 👍

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

297
500
Посмотреть ответы 2

Ответы на вопрос:

Masimo1
Masimo1
4,8(24 оценок)
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).
Dementor112
Dementor112
4,8(83 оценок)
Program n1; const n=15; var a: array[1..n] of integer; i,b,k: integer; begin randomize; write('массив: '); for i: =1 to n do  begin a[i]: =random(66)+20; write(a[i],' '); end; writeln; write('введите число: '); readln(b); k: =0; for i: =1 to n do if a[i]> b then k: =k+1; write('k=',k); end.

Популярно: Информатика