Задача на "сложный процент". Если первоначальная сумма равна k, то при годовом проценте p ее величина S через год составит k+k*p/100 = k(1+p/100). Через два года S составит k(1+p/100)+k*(1+p/100)*p/100 = k(1+p/100)(1+p/100) = k(1+p/100)². Тогда через n лет:
У нас S=2500000, p=4.5, n=33-14=19.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var s:=ReadReal('Целевая сумма;'); var p:=ReadReal('Годовой процент, %:'); var n:=ReadInteger('Количество лет'); Writeln('Сумма начального вложения составит ',S/(1+p/100)**n:0:2) end.
Пример Целевая сумма; 2500000 Годовой процент, %: 4.5 Количество лет 19 Сумма начального вложения составит 1083254.47
Так как по условию задачи нам не нужно выводить на экран считанную информацию с клавиатуры,то вывод переменной нам будет необходим только в случае обращения по имени.
var a:string; begin writeln('Как тебя зовут ?'); readln(a); writeln('Привет ',a,' !'); writeln('Сколько тебе лет? '); readln(); writeln('Какой у тебя любимый предмет в школе?'); readln(); writeln('Какая у тебя любимая книга'); readln(); end.
Если же,необходимо запомнить всю полученную информацию,тогда используем этот вариант:
var a,b,c,d:string; begin writeln('Как тебя зовут ?'); readln(a); writeln('Привет ',a,' !'); writeln('Сколько тебе лет? '); readln(b); writeln('Какой у тебя любимый предмет в школе ?'); readln(c); writeln('Какая у тебя любимая книга ?'); readln(d); write ('Значит тебя зовут ',a ,'. Тебе ',b,'. Твой любимый предмет - ',c,'. И твоя любимая книга - ',d); readln(); end.
Правильно100%. якщо-то