Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
<span>end.</span>
Составим таблицу, куда пощагово запишем все значения переменных (см. во вложении) и увидим, что значение переменной С будет равно 8
Чтение , так как читаешь усваиваешь информацию , создание , ты берёшь другие знания , чтобы создать что то новое
Программа:
var n,k,i: integer;
begin
write('n = ');
readln(n);
// вычисляем число перестановок
k:=1;
for i:=1 to n do k:=k*i;
writeln('k = ',k);
end.
Пример:
n = 3
k = 6