Program morningglory;
uses crt;
var y,i:integer;
P:=1;
begin
for i:=100 to 999 do
if i mod 7=3 then
begin
P:=P*i);
end;
writeln ('Произведение чисел, дающих при делении на 7 остаток 3 =',P);
end.
Как я понял, тут рассматривается цикл. после каждого "прогона" появляется новое значение s:
i:=9
s:=95+2*9=113 => s:=113
так мы прогоняем до i:=16 и получаем значение 295
Буквы, Цифры, Стрелки, Ряд F, Настройки
<span>var a,b:integer;
<span>begin</span></span>
<span><span /></span><span><span>a:=10;
</span><span> b:=15;
if a>b then b:=a+b;
a:=a+b;</span></span>
<span><span>writeln(a);</span></span>
<span><span>writeln(b);</span></span>
<span><span>end;</span></span>
<span><span />
</span>