Задания уровня 1

Упражнение 1. Вычислить месячные выплаты m по займу в s рублей на n лет под процент p. Вычисления выполняются по формулам:

Var

m, s, p, r, n, a, d: real;

rub, kop: integer; {Целая и дробная часть числа (рубли и копейки)}

Begin

writeln ('Введите заем, процент и количество лет в одной строке');

readln (s, p, n);

r:=p/ 100;

a:=exp (ln(1+r)*n); {Вычисление степени числа через логарифм}

m:=(s*r*a)/(12*(a-1));

m:=trunc (100*m+0.5)/ 100; {Округление до копейки}

d:=m*n*12 - s;{Общая прибыль}

writeln;

rub:=round (s*100) div 100;{Преобразование числа в денежный формат (выделения руб.и коп.)}

kop:= round (s*100) mod 100;

write ('Взято ', rub, 'руб.', kop, 'коп.');

write ('под ', p:5:2, '% на ', n:5:2, 'лет');

writeln;

rub:=round (m*100) div 100; {Преобразование числа в денежный формат (выделения руб.и коп.)}

kop:= round (m*100) mod 100;

writeln ('Месячная выплата = ', rub, 'руб.', kop, 'коп.');

rub:=round (d*100) div 100; {Преобразование числа в денежный формат (выделения руб.и коп.)}

kop:= round (d*100) mod 100;

writeln ('Общая прибыль= ', rub, 'руб.', kop, 'коп.')

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске: <F2> A:\P2PR1

Упражнение 2. Вычислить сумму цифр трехзначного числа.

Var

i, first, second, third, sum: integer;

Begin

write ('Введите целое трехзначное число: ');

readln (i);

first := i div 100; {Выделение первой цифры числа}

second := i div 10 mod 10; {Выделение второй цифры числа}

third := i mod 10; {Выделение третьей цифры числа}

sum := first + second + third;

writeln ('Сумма цифр числа ', 100*first+10*second + third, '=', sum)

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске: <F2> A:\P2PR2

Упражнение 3. Перевести английские названия дней недели на русский язык

Var

d : days;

Begin

for d:=mon to sun do