Что относится к первым алгоритмам в ? 1. решение тригонометрических равенств 2. умножение "столбиком" многозначных чисел 3. деление "уголком" многозначных чисел 4. вычитание многозначных чисел 5. сложение многозначных чисел 6. нахождение корней квадратного уравнения

Яне и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете. 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, ' коп.'); end.

{pascal, консольный ввод} var       velichina_vklada, srok_vklada, godovaya_procentnaya_stavka: integer;       vklad_s_procentami: real;             vklad_s_procentami_rub, vklad_s_procentami_kop: integer;       dohod_rub, dohod_kop: integer;       begin       write('величина вклада (р.) - ');       readln();       write('срок вклада (дней) - ');       readln(srok_vklada);       write('годовая процентная ставка (%) - ');       readln(godovaya_procentnaya_stavka);             vklad_s_procentami : = velichina_vklada * ((real(100) + real(godovaya_procentnaya_stavka)*real(srok_vklada)/365)/100);       dohod_rub : = (velichina_vklada - integer(vklad_s_procentami));       dohod_kop : = (velichina_vklada*100 - integer(vklad_s_procentami*100)) mod 100;             vklad_s_procentami_rub : = integer(vklad_s_procentami);       vklad_s_procentami_kop : = integer((vklad_s_procentami*100)) mod 100;             writeln('доход: ', dohod_rub,' р. ', dohod_kop, ' 80 коп.');       writeln('сумма по окончании срока вклада: ', vklad_s_procentami_rub, ' р. ', vklad_s_procentami_kop, ' коп.'); end.