Объяснение:
^ знака нет, но выполняет свои действия, у себя в таблице ставьте его!
В стандартных функциях такого никогда не встречал. Скорее всего это нестандартная процедура или функция, описанная пользователем в начале программы.
Насколько была понятна запись
y= 15x+a; если x>=10; a<=-3;
у = x^(2)+ корень из а; если х<=9;а>5;
program zadacha;varx,y,a: real;
beginwriteln('vvedite x,a');readln(x,a);if (x>=10) and (a<=-3) then y:=15*x+a;if (x<=9) and (a>5) then y:=sqr(x)+sqrt(a);writeln(y);end.
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
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>