var
a, p, s : integer;
begin
write('введите сторону квадрата a=');
readln(a);
p := a*4;
s := a*a;
writeln('периметр P=', p);
writeln('площадь S=', s);
end.
Свисток Начало/Конец игры
Жесты Повороты налево, направо, вперед назад
Табло времени Начало/Конец чего-либо
Школьный звонок Начало урока или конец
Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита уже погашена за предыдущие годы.
В этом случае ежегодная сумма процентов по кредиту составит Sk=k×p%/100%.
За n лет будет отдано n×Sk. И еще нужно вернуть саму сумму кредита k.
Итого нужно вернуть k+n×Sk.
Доход за это время составит n×r и получаем неравенство
n×r ≥ n×Sk+k
n×(r-Sk) ≥ k → n ≥ k/(r-Sk) с округлением до целых в большую сторону.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (k,p):=ReadReal2('Сумма кредита и процент годовых:');
var r:=ReadReal('Предполагаемый годовой доход:');
var Sk:=k*p/100;
if r<=Sk then Writeln('Рассчитаться за кредит невозможно')
else Writeln('Количество лет на погашение кредита: ',Floor(k/(r-Sk)))
end.
<u>Пример</u>
Сумма кредита и процент годовых:10 0000 16
Предполагаемый годовой доход: 24000
Количество лет на погашение кредита: 12
Все числа имеют равный шанс "выпадания". Поэтому могло быть 15 вариантов событий, поэтому неопределённость знаний уменьшается в 15 раз. Сообщение, что выбрали одно число содержит 4 бита. Так как (15 ≈ 2^4) Ответ: 4 бита
begin
var pow: BigInteger := 1;
var sum := 1;
var n := 0;
while n < 2 do
begin
Print('n =');
read(n)
end;
for var i := 2 to n do
begin
sum += i;
pow *= sum
end;
Print(pow)
end.
