1. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза? i:=3;
while i<=... do begin
writeln('Привет!');
i:=i+1;
end;
После каждого шага цикла к i прибавляется 1.
Изначально i = 3. Поэтому чтобы цикл выполнился ровно 4 раза, i сможет принять значения 3, 4, 5, 6.
Значит, нужно записать вместо ... число 6.
ответ: 6
2. Сколько раз будет выполнен этот цикл?
i:=6;
while i<5 do begin
writeln('Привет!');
i:=i+1;
end;
Т.к. i = 6, то на первом шаге цикла неравенство 6 < 5 будет уже неверно. Поэтому данный цикл выполнится 0 раз.
ответ: 0
3. Какое число будет выведено на экран в результате выполнения этого цикла?
i:=1;
write('9');
while i<3 do begin
write(i);
i:=i+1;
end;
Сначала до цикла будет выведено число 9.
Затем начинается цикл:
1 шаг (i = 1) : выведется 1
2 шаг (i = 2) : выведется 2
На 3 шаге (i = 3) цикл завершится, т.к. неравенство 3 < 3 неверно.
ответ: 912
4. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=4;
while i>=... do begin
writeln('Привет!');
i:=i-1;
end;
После каждого шага цикла от i отнимается 1. Изначально i = 4. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 4, 3.
Значит, нужно записать вместо ... число 3.
ответ: 3
5. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=...;
while i>=6 do begin
writeln('Привет!');
i:=i-1;
end;
После каждого шага цикла от i отнимается 1. Цикл завершается при i = 5. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 7, 6.
Значит, нужно записать вместо ... число 7.
ответ: 7
6. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?
i:=...;
while i<=7 do begin
writeln('Привет!');
i:=i+1;
end;
После каждого шага цикла к i прибавляется 1. Цикл завершается при i = 8. Поэтому чтобы цикл выполнился ровно 3 раза, i сможет принять значения 5, 6, 7.
Значит, нужно записать вместо ... число 5.
ответ: 5
7. Чему будет равно значение переменной «a» после выполнения этого цикла?
i:=2;
a:=12;
while i<5 do begin
a:=a+i;
i:=i+1;
end;
1 шаг цикла (i = 2) : a = a + i = 12 + 2 = 14
2 шаг цикла (i = 3) : a = a + i = 14 + 3 = 17
3 шаг цикла (i = 4) : a = a + i = 17 + 4 = 21
На 4 шаге (i = 5) цикл завершится, т.к. неравенство 5 < 5 неверно.
ответ: 21
var
i,a,b:integer;
ar:array[1..10] of integer;
procedure oddDec(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;
procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;
begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
begin;
ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
write(ar[i]:4); //вывод
if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
{если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.
Пример ввода:
20
10
Пример вывода:
Array:
10 16 0 60 23 4 22 -20 4 55
Final array:
0 36 -10 80 13 24 12 0 -6 75