Предмет: Информатика,
автор: oswisss
Створіть проект, у якому створюється одновимірний масив (список) з бан- ківських вкладів 10 клієнтів. Через рiк вклад кожного збільшується на р %. Виведіть суми, які зможуть забрати ці клієнти через рік
Мова програмування Pascal
Lazarus IDE
Ответы
Автор ответа:
2
program BankDeposits;
var
deposits: array[0..9] of real;
i: integer;
rate: real;
begin
// Заповнюємо масив банківських вкладів
for i := 0 to 9 do
begin
writeln('Введіть вклад клієнта ', i+1, ': ');
readln(deposits[i]);
end;
// Запитуємо користувача про річну ставку
writeln('Введіть річну ставку: ');
readln(rate);
// Обчислюємо суми вкладів через рік
for i := 0 to 9 do
begin
deposits[i] := deposits[i] * (1 + rate / 100);
writeln('Клієнт ', i+1, ' зможе зняти ', deposits[i]:0:2, ' грн через рік');
end;
end.
Похожие вопросы
Предмет: Химия,
автор: mashuko1016
Предмет: Алгебра,
автор: taisia2838
Предмет: Математика,
автор: veronikaborodinova62
Предмет: Литература,
автор: pavliana19
Предмет: Физика,
автор: NASTYA62748