Значение переменной f после выполнения фрагмента алгоритма: 25
Присваиваем переменной i = 20 , f - 1. До тех пор пока i < 15 будем делать следующее:
1. От текущего значения i отнимаем 2 и присваиваем это переменной i.
2. К текущему значению переменной f прибавляем значение i деленного на 2 без остатка.
После всего проверяем условие, если i до сих пор больше 15, повторяем.
Значения будет изменяться так:
1 шаг
i = 20
f = 1
2 шаг
i = 18
f = 10
3 шаг
i = 16
f = 18
4 шаг
i = 14
f = 25
На 5 шаге i будет больше 15, а это не удовлетворяет условию. И осуществляется выход из программы.
ответ: 120
Объяснение:
Изначально i = 0, f = 1. Потом идёт цикл, который пока i<15? выполняет:
Увеличивает i на 4Умножает f на 2Увеличивает f на iЦикл будет выполнятся при i = 0, 4, 8, 12 (потом идёт 16, условие 16<15 не выполняется).
i = 0 i = 0+4 = 4 f = 1*2 = 2 f = 2+4 = 6i = 4 i = 4+4 = 8 f = 6*2 = 12 f = 12+8 = 20i = 8 i = 8+4 = 12 f = 20*2 = 40 f = 40+12 = 52i = 12 i = 12+4 = 16 f = 52*2 = 104 f = 104+16 = 120Задание 2:beginReadArrInteger(3).Sum(x -> x<0 ? x : 0).Println;end.Пример работы:
1 задача
var
a:array[1..3] of integer;
i,min,max:integer;
begin
for i:= 1 to 3 do
read(a[i]);
min:=a[1];
for i:= 1 to 3 do
if a[i]<min then
min:=a[i];
for i:= 1 to 3 do
if a[i]>max then
max:=a[i];
writeln(min+max);
end.
2 задача
var
i:integer;
begin
for i:= 10 to 30 do
if i mod 3 = 0 then
writeln(i);
end.
Объяснение: