Program zadacha3_3;

var с1,с2,с3,i,n,kol:integer;

Begin

writeln('Введіть n');

Readln(n);

kol:=0;

for i:=100 to 999 do

Begin

c1:=i div 100;

c2:=(i div 10) mod 10;

c3:=i mod 100;

if c1+c2+c3=n then kol:=kol+1;

End;

writeln('Кількість таких чисел = ',kol);

End.

Питання для повторення:

1. Для чого призначений оператор циклу?

2. Які існують цикли в мові Паскаль?

3. Який формат запису має оператор FOR?

4. Як працює оператор FOR?

5. В яких випадках застосовується оператор FOR?

6. Скільки разів буде виконаний цикл, і чому буде рівна змінна S після виконання:

s:=0; n=6;

for i:=3 to n do

s:=s+i;

7. Як в тілі циклу виконати декількох операторів?

Завдання для самостійної роботи:

1. Знайти суму всіх непарних тризначних чисел.

2. Знайти суму позитивні кратні 7 чисел, менших 100.

3. Знайти всі числа, які діляться на N серед:

a) всіх двухзначных чисел;

b) всіх тризначних чисел.

4. Скласти програму обчислення суми квадратів чисел від 1 до n.

5. Серед двозначних чисел знайти ті, сума квадратів цифр яких ділиться на 13.

6. Знайти всіх дільників для заданого числа n.

7. Дано натуральне число n. Обчислити:

a) 2n; b) 3n з) n!;

8. Серед чотиризначних чисел вибрати ті, у яких:

a) всі чотири цифри різні (наприклад: 3167, 9012);

b) є три однакові цифри (наприклад: 1311, 7779);

c) цифри попарно різні (наприклад: 1331, 7979, 2255);

d) цифри утворюю зростаючу послідовність (наприклад: 1389, 4678);

9. Написати програму пошуку чисел <1000, які при розподілі на 2 дають в залишку 1, при розподілі на 3 дають в залишку 2, при розподілі на 4 - в залишку 3, при розподілі на 5 - в залишку 4, при розподілі на 6 - в залишку 5 а при розподілі на 7 дають в залишку 6.

Вивчаємо “Цикли”

Тема уроку:

Алгоритми з повтореннями.

Цикл з передумовою WHILE.

Цикл з післяумовою REPEAT.

Мета заняття:

1. Закріпити поняття про цикли;

2. Познайомитися з циклами WHILE і REPEAT;

3. Отримати навики рішення алгоритмів з повтореннями.

На минулому занятті ми познайомилися і навчилися використовувати рахунковий цикл FOR.

Продовжимо роботу по цій темі і познайомимося з ще двома циклами:

- цикл WHILE з предусловием;

- цикл REPEAT.UNTIL з постусловием.

Ці цикли зручно використовувати тоді, коли наперед невідомо число повторень.

Вирішимо задачу zadacha3_1 використовуючи цикли WHILE і REPEAT

спробуємо зрозуміти принцип роботи цих циклів.

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

1) цикл FOR