Question

Чему будет равно значение переменной n после выполнения инструкций:
n:=0;
while n<5 do
n:=n+1;
2. Что будет выводиться на экран во время выполнения инструкций:
n:=1;
while n<=10 do
begin
x:=n*n;
wtiteln(n,’ ’,x);
n:=n+1;
end;
3. Игра «Угадай число» заканчивается, если количество попыток достигло 10. Напишите условие завершения игры
c:=0; //число попыток
while условие do
begin
write (Ваш вариант’);
readln(m);
c:=c+1;
end;
4. Определить значение переменной s после выполнения операторов:
а) s:=0;
i:=0;
while i<5 do
begin
i:=i+1
end;
s:=s+1/i;

5. Найти ошибки в следующем фрагменте программы:
a) p:=0;
while i do
begin
p:=p*i;
end;
б) s:=0;
while s<10 do
begin
s:=s+i;
i:=i+k;
end;
6. Даны N вещественных чисел. Найти среднее арифметическое положительных чисел.
7. Вычислить произведение первых 5 нечетных чисел.

б) s:=0;
i:=0;
while i<5 do
begin
i:=i+1
s:=s+1/i;
end;

б) s:=0;
i:=0;
while i<5 do
begin
i:=i+1
s:=s+1/i;
end;
​