Оператор цикла с предусловием (цикл-Пока)

Формат оператора:

while < логическое выражение > do < тело цикла >

Пока значение логического выражения – true (истина), выполнятся тело цикла. Если тело цикла состоит из нескольких операторов, то они объединяются операторными скобками Begin – end;

Задания:

1. Определить значения переменных после выполнения фрагментов программы.
а) S:=0; i:=5;
while i>2 do i:=i-1;
S:=S+i*i;

б) S:=0; i:=1;
while i>=1 do begin s:=s+1/i;
i:=i-1; end;

в) S:=0; i:=0;
while i<5 do i:=i+1;
S:=S+i; Writeln (S);

г) S:=0; i:=0;
while i<3 do begin i:=i+1;
writeln (S+5); end;

2. Написать программу вывода на экран десять раз слова «Ура».

3. Дано натуральное число. Определить:
а) количество цифр в нем;
б) сумму его цифр;
в) сумму квадратов его цифр;

г) сумму его первой и последней цифр.

4. Дано вещественное число а. Найти такое наименьшее n, что 1 + 1/2 + 1/3 + …+ 1 / n >a.

5. Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить:

а) в какой день он пробежал больше 20 км;

б) в какой день суммарный пробег за все дни превысит 100 км.