Решить написать программу на языке паскаль продав квартиру, вы получили 22000 долларов и положили их в банк. банк начисляет 18% в первый месяц, а каждый следующий - тоже 22%, но уже с общей суммы с учётом начисленных процентов. сколько денег будет в банке на вашем счету через год? (нестабильностью нашей системы пренебрегаем)

в принципе, решение формально арифметически правильное. но ведь нереальна.

1. как правило, резидентам законодательно запрещено осуществлять на территории своего государства сделки не в валюте государства, значит эта сделка была либо серой(на бумаге одно, в реале другое), либо сделка осуществлялась на территории другого государства, где покупатель был нерезидентом.

2. таких огромных процентов по депозитным валютным вкладом не существует в принципе,   это же около 300% годовых в валюте! это под какие же процены банк должен выдавать кредиты, чтобы привлечённые ресурсы были рентабельные, да и кто их под такие проценты возьмёт! . реальные проценты по депозитным 5-10% годовых.

 

я не случайно написал этот комментарий, ведь если по вам предложат , ну например, такую "сколько времени продлится полет на марс, если расстояние до него 60000000км, а скорость космолёта 500000км/с", вы ведь не будете её решать, потому что такой скорости не может быть. так и здесь: таких процентов не может быть! поэтому решать такую нельзя, она описывает не существующие объекты(ситуацию).

 

вот и всё!

успехов!

 

var  i: integer;   s: real; begin  for i : = 1 to 12 do begin    if(i = 1) then s : = 22000 + (22000 * 0.18) else    s : = s + (s * 0.22);   end;   writeln(s: 0: 3); end.

Последний день перед рождеством прошел. зимняя, ясная ночь наступила. глянули звезды. месяц величаво поднялся на небо посветить добрым людям и всему миру, чтобы всем было весело (н. в. гоголь. вечера на хуторе близ диканьки) 239 символів включаючи пробіли між словами, знаки пунктуації і букви. якщо в 8 бітному кодуванню то кожен символ кодується 8 бітами(або 1 байтом) 239*8=1912біт=239байт (щоб перейти від біт до байт треба просто поділити на 8, тому що 1 байт має 8 біт) якщо в 16 бітному(або 2 байтовому) то 239*16=3824біт=478байт

Const n = 100; const m = 50; var a: array[1..n] of integer;         b: array[1..n] of integer;         i,it,bo: integer; begin     for i: = 1 to n do             a[i] : = trunc(random(100));     for i: = 1 to m do             b[i] : = trunc(random(100));     bo: =1;           for i: =1 to m do             if bo = 1 then                 for it: =1 to n do                     if b[i] < > a[it] then begin bo: = 0; break; end;     if bo = 1 then write('входят') else write('не входят'); end. если я правильно понял то так