Задачи. Циклы на языке Паскаль.

REPEAT <тело цикла> UNTIL  <условие>; Цикл с пост условием WHILE  <условие> DO         begin                 <тело цикла>         end; Цикл с пред условием for i:= 1 to n do Цикл с параметром Циклы в Паскале Задача №1program example; var    sum:real;    n:real;BEGIN    sum:=0;    n:=1;    while n <= 30 do         begin            sum:=sum+n;            n:=n+0.5;         end;    writeln('Сумма равна: ',sum); END. Ответ: Задача: вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30 Задача №2Program Summa;Var   S:real;      N:integer;Begin  S:=0;N:=0;  repeat    N:=n+1;    S:=s+1/n  Until n>1000;  Writeln(s);  ReadlnEnd. Ответ: Подсчета суммы первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N Задача №3 Var  I, n,x,sum: integer; Begin  Write('Введите N=');  Readln(n);  Sum:=0;  For I:=1 to n do   Begin    Write('Введите число');    Readln(x);    if x<0 then sum:=sum+x  end;    writeln('сумма =', sum);  End. Ответ: Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел. Пример 1. Вычислить наибольший общий делитель двух натуральных чисел А и В.   Воспользуемся для этого алгоритмом Евклида: будем уменьшать каждый раз большее из чисел на величину меньшего до тех пор, пока оба числа не станут равны.Program NOD;Var  a,b:integer;Begin  Write ('введите два натуральных числа')  Readln(a,b)  While a<>b do If a>b then a:=a-b else b:=b-a;  Writeln('НОД=',a);End. Пример 2 . Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 20 км, в какой день суммарный пробег за все дни превысит 100км.Program prim_10;Var S:real;    N:integer;Begin  S:=10;N:=1;  While s<20 do   Begin    N:=n+1;    S:=s*0.1  End;  Writeln(' дневной пробег больше 20 км на ',n,' день');  S:=10;N:=1;  While s<100 do   Begin    N:=n+1;    S:=s+s*0.1 {накапливаем суммарный пробег}  End;  Writeln('за ',n,' пробежит больше 100 км');End. Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов.Числа Фибоначчи – это элементы числовой последовательности1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …, в которой каждое последующее число равно сумме двух предыдущих. Числа Фибоначчи program fib_01;var i, ch, ch1, ch2, n :integer;{i - счетчик чисел Фибоначчи;n - количество чисел Фибоначчи;ch - число Фибоначчи;ch1, ch2 - вспомогательные переменные алгоритма поиска чисел Фибоначчи}beginwrite('n='); readln(n);ch:=0; {алгоритм поиска чисел Фибоначчи}ch1:=1;for i:=1 to n dobeginch2:=ch1;ch1:=ch;ch:=ch1+ch2;write (ch:5) {надо вывести на экран все числа Фибоначчи, поэтому оператор вывода находится внутри цикла}end;end. Домашнее задание Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно. 2. Вывести на экран кубы чисел от A до B. №1program FromOneToN; var i, n: word; begin readln(n); for i := 1 to n do begin write(i, ' '); end ;end. №2var a, b: integer; begin write('A: '); readln(a); write('B: '); readln(b); if a < b then for a := a to b do writeln (a * a * a); end.