Составить блок схему допустим вы получили наследство в 1.000.000$, после долгих раздумий вы решаете, что будете жить на 800$ в месяц. на сколько лет вам хватить наследства.

169

465

Посмотреть ответы 1

Ответы на вопрос:

artyrik412002

Информатика

4,5(14 оценок)

Var s, n: integer; begin write('введите натуральное число: '); readln(n); s : = ((n + 1) * n) div 2; { сумма арифметической прогрессии } writeln('сумма натуральных чисел от 1 до ', n, ' равна ', s) end. результат выполнения программы: введите натуральное число: 10 сумма натуральных чисел от 1 до 10 равна 55 var i: integer; begin writeln('квадраты первых пяти нечетных натуральных чисел'); i : = 5 * 2 - 1; while i > 0 do begin writeln(i: 2, sqr(i): 5); i : = i - 2 end end. результат выполнения программы: квадраты первых пяти нечетных натуральных чисел 9 81 7 49 5 25 3 9 1 1