В приведенном фрагменте программы после начального присваивания s:=0 будет выполняться цикл. В теле цикла находятся 2 оператора - в первом операторе вычисляется значение s, во втором - вычисленное значение выводится на экран. Анализ работы цикла:
j=10, s=s+2*j=0+2*10=20, вывод на экран 20
j=11, s=20+2*11=42, вывод на экран 42
<span>j=12, s=42+2*12=66, вывод на экран 66
</span>j=13, s=66+2*13=92, вывод на экран 92
j=14, s=92+2*14=120, вывод на экран 120
<span>j=15, s=120+2*15=150, вывод на экран 150
</span>Таким образом, на экран будет выведено: 20426692120150
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99); a.Println(4);
for var r:=0 to 3 do
a.SetRow(r,a.Row(r).OrderBy(t->t).ToArray);
Writeln('*** Отсортированный массив ***'); a.Println(4)
end.
<u>Пример</u>
*** Исходный массив ***
-51 13 46 -81
66 52 -8 -58
-30 7 44 1
12 11 -98 -90
*** Отсортированный массив ***
-81 -51 13 46
-58 -8 52 66
-30 1 7 44
-98 -90 11 12
Var a,b,c,d,e,m1,m2,m3,ITOG:integer;
Procedure nod(x,y:integer;var n:integer);
Begin
If x=y then n:=x
else
if x>y then NOD(x-y, y, n)
Else NOD(x, y-x, n);
end;
begin
read (a,b,c,d,e);
nod(a,b,m1);
nod(c,d,m2);
nod(m1,m2,m3);
nod(m3,e,ITOG);
writeln (ITOG);
end.
Пример:
90 135 45 315 75
15
Начало
1. 11 - 0
2. 7 - 4
3. 7 - 0
4. 3 - 4
5. 3 - 0
6. 0 - 3
7. 11 - 0
8. 7 - 4
Ответ:
324
Объяснение:
Каждый раз подставлять нодо прошлый у