Урок №31. Створення програм з використанням структури повторення з післяумовою. Інструктаж з БЖД. Практична робота №11.

1. Дайте відповіді на запитання

2. Виконання практичної роботи.

Розглянемо наступну задачу:

Задача 1. Знайти суму всіх натуральних чисел від 1 до N.

Вхідні дані: число N.

Вихідні дані: Сума чисел.

Program suma_N;      {даємо назву програмі}

var n,s,i:integer;         {описуємо змінні: n-натуральне число; s-сума; i-число-крок(замість лічильника)}

begin

writeln(‘vvedit N’);      {пишемо на екран повідомлення}

readln(n);                 {зчитуємо число n в комірку пам’яті}

s:=0;                         {на початку присвоюємо змінній s значення 0}

i:=1;                          {і присвоюємо значення першого числа (за умовою задачі це 1)}

repeat                      {повторюємо}

s:=s+i;                      {сумі:=попереднє число суми+число і}

i:=i+1;                       {і присвоюємо значення наступного числа: оскільки в нас за умовою задачі всі натуральні числа додаються, то ми до існуючого числа і додаємо 1, щоб отримати наступне число}

until i>n;                   {команди циклу виконуємо доти, доки число і не стане більшим за введене натуральне число}

writeln(‘suma=’,S:10);    {виводимо на екран значення суми}

readln;                        {порожня команда читання}

end.                            {кінець програми}

Виконайте наступну задачу:

Задача 2. Знайти суму всіх парних натуральних чисел від 1 до N.

Вхідні дані: число N.

Вихідні дані: Сума чисел.

Підказка: для виконання цього завдання достатньо у попередній вправі змінити два числа. Пригадайте, що таке парні числа.

Для звіту надішліть мені фото вашої виконаної роботи або у  онлайн компіляторі мови програмування Pascal, або у середовищі Lazarus, або (у крайньому випадку) написаної на папері.

Якщо в процесі роботи виникають якісь питання, то також звертайтеся через електронну пошту або вайбер

електронна пошта: shkolabilin1@gmail.com

вайбер: +380930158447