1. что такое цикл? 2. чем отличаются циклы с предусловием и постусловием? 3. сколько раз выполнится цикл? n: =0 while n< 6 do begin s: =s+6; n: =n+2; end; 4. какое число выведет на экран пк после выполнения фрагмента программы? for i: =1 to 5 do s: =20 - i; write (s); 5. найди и исправь ошибку. n: =6; repeat s: =s+n; until n> 0 средний уровень 6. составь программу, вычисляющую сумму квадратов первых n натуральных чисел. 7. ученик в первый день выучил 5 слов. в каждый следующий день он выучивал на 2 слова больше, чем в предыдущий. составьте программу, вычисляющую сколько слов он выучит за n дней.
3) 3 раза
4) 5
5) until n>6
6)program zadanie;
uses crt;
Var
n,k,i,S: integer;
begin
clrscr;
writeln ('Введите n=');
readln (n);
for i:=1 to n do
begin
S:=S+i*i;
end;
writeln('Сумма квадратов=',S);
end.
7)program zadanie2;
uses crt;
Var
n: integer;
begin
clrscr;
writeln ('Введите n=');
readln (n);
writeln('Результат:',(5+(n-1))*n);
end.