Var
n,i,s:integer;
begin
Write('n='); Read(n);
i:=7; s:=0;
while i<=n do begin
s:=s+i;
i:=i+5
end;
Writeln('S=',s)
end.
<em><u>Изначально s = 60</u></em>
<em><u>Цикл будет работать 6 раз</u></em>
Первый проход цикла: k = 5, тогда s = 60 - 5 = 55
Второй проход цикла: k = 6 (т.к один проход уже сделан, и значение переменной k увеличилось на 1), тогда s = 55 - 6 = 49
Третий проход цикла: k = 7, тогда s = 49 - 7 = 42
Четвертый проход цикла: k = 8, тогда s = 42 - 8 = 34
Пятый проход цикла: k = 9, тогда s = 34 - 9 = 25
Шестой проход цикла: k = 10, тогда s = 25 - 10 = 15
Окончательный ответ: значение переменной s после выполнения цикла = 15
//я так понимаю, речь идёт о монотонном возрастании
var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
for i:=2 to 10 do
begin;
if ar[i]<ar[i-1] then
begin;
writeln('Не возрастает');
exit;
end;
end;
writeln('Возрастает');
<span>end. </span>
Так же как клаома и грогха
A\/Ā=1, поэтому =1\/В/\С=1