Во первых рекомендую пользоваться компилятором.
Я прикрепила фото результата работы программы. Вышло 405.
Чтоб найти сколько раз повторяется цикл, нужно напротив цикла поставить точку останова и в режиме отладки смотреть сколько раз будет повторяться цикл. Либо добавить еще одну переменную int i= 0;
и в цикле после выражений написать i++; И дальше в конце ее вывести на экран и тебе покажет кол-во итераций(я приложила второе фото с таким решением, посмотри. Результат кол-ва итераций=21)
Когда условие перестанет выполняться, произойдет выход из цикла
(В данном случае условие s/n>=2. До тех пор пока s/n>=2 цикл будет выполняться. Когда результат от деления s/n будет будет меньше 2 цикл перестанет выполняться.)
Если под рукой нет компилятора и нужно узнать сколько раз повторяется цикл, нужно опять таки смотреть на условие цикла.
подставляешь в выражения числа и смотришь выполнится условие или нет. Если выполняется-дальше считаешь. Если не выполняется-выходишь из цикла.
Например, заходим в цикл:
s=300+5 (в итоге s=305)
n=100+5(в итоге n=105)
Дальше смотрим на условие цикла s/n>=2 (305/105>=2 да, значит цикл произведет еще одну итерацию)
s=305+5 (в итоге 310)
n=105+5 (в итоге 110)
Опять проверяем условие(310/110>=2 да, значит цикл произведет еще одну итерацию)
Продолжаем расчеты
s=310+5 (в итоге 315)
n=110+5 (в итоге 115)
Опять проверяем условие(315/115>=2 да, значит цикл произведет еще одну итерацию)
s=315+5 (в итоге 320)
n=115+5 (в итоге 120)
Опять проверяем условие(320/120>=2 да, значит цикл произведет еще одну итерацию)
и тд. пока условие не перестанет выполняться.
Когда оно перестанет выполняться, цикл перестанет выполняться тоже. Потом Посчитаешь сколько раз ты производил вычисления.(сколько было итераций) и поймешь, что их было 21. Т.е твой цикл 21 раз повторяется и выводит результат вычисления переменной s равный 405.
Будут вопросы, спрашивай.
Удачи:)
Объяснение:
program nom_4;
var i:integer;
s: real;
begin
s:=0;
for i:=1 to 15 do
s:=1/i;
writeln ('S=', s);
end.
(насколько я понимаю тут имеются в виду четные числа в диапазоне от 1 до 20)
program nom_5;
var n, s:=integer;
begin
s:=0;
for n:=1 to 20 do
if (n mod 2=0) then s:=s+n;
writeln ('S=', s);
end.
(насколько я понимаю тут имеются в виду нечетные числа в диапазоне от 3 до 13)
program nom_6;
var n, s, pr:= integer;
begin
s:=0;
pr:=0;
for n:=3 to 13 do
begin
if (n mod 2<>0) then pr:=n*n;
s:=s+pr;
end;
writeln ('S=', s);
end.
или можно проще
program nom_6;
var n, s:= integer;
begin
s:=0;
for n:=3 to 13 do
s:=sqr(n)+s;
writeln ('S=', s);
end.
program nom_7;
var n, p: integer;
begin
p:=1;
for n:=1 to 8 do
p:=p*n;
writeln ('P=', p);
end.
(я не совсем понимаю что имеется в виду под х, поэтому предположу, что х мы должны ввести самостоятельно)
program nom_8;
var x, s: real;
i: integer;
begin
write ('Введите х');
readln (x);
s:=0;
for i:=2 to 7 do
s:=s+sin(i*x);
writeln ('S=', s);
end.