Отримайте матір на тему "Книги - Річкі, Шо - це всюди Всесвіт" (Ярослав Мудрі). Покладіть план, який я пишу текст акції. Зауважимо, що числа формують арифметичну прогресію, і її кількість відомо: отже, два варіанти програми: один обчислює кількість з накопиченням, другий негайно визначає результат за формулою. Хороший приклад того, що повинен знати програміст. Var n, i, s: ціле число; Почати писати ('ввести природне число:'); Readln (n); if (n mod 2) = 0 Почніть s: = 0; для i: = 1 до n do s: = s + i; WriteLn ('сума чисел від 1 до', n, 'рівний', s) end else writeeln ('введений непарним числом'). Тестове рішення: введіть природне число: 8 кількість чисел від 1 до 8 - 36 var n, s: ціле число; Почати писати ('ввести природне число:'); Readln (n); If (n mod 2) = 0, то writeeln ('сума чисел від 1 до', n, 'рівномірний', ((1 + n) * n) div 2) else writeeln ('непарне число вводиться') Кінець. Тестове рішення: Введіть природне число: 8 Кількість чисел від 1 до 8 - 36. Відповідь залишилася: Гість. Де фото? Як ми будемо робити без цих слів?