Практическая работа No3.
Операторы цикла while, repeat, for

ЗаданиеNo1.Наберите программу с использование цикла while-do (цикл с предусловием)
Вычислить сумму S=1+1/2+1/3+...+1/50
Program summa;
VAR S: REAL; N:INTEGER;
BEGIN
S:=0; N:=1;
WHILE N<=50 DO
BEGIN
S:=S+1/N;
N:=N+1;
END;
WRITELN(' S=',S);
END.
ЗаданиеNo2. Наберите программу с использование цикла for (цикл со счётчиком).
Квадраты чисел от 1 до 10
program ciklih1;
uses crt;
var N:integer;
begin
clrscr;
For N:=1 To 10 Do
writeln (sqr(N));
readln
end.
ЗаданиеNo3. Наберите программу с использование цикла repeat-until (цикл с
постусловием).
program Z1;
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;
readln
end.
ЗаданиеNo4. Написать на Паскале программу, которая запрашивает с клавиатуры N
произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать
для созданной программы не менее трёх тестов и проверить на них правильность работы
алгоритма.