Тест "Программирование циклов"

Отметьте, что определяется во фрагменте программы:
readln (а, b);
for i:=1 to n do
begin
write (‘Enter х’);
readln (х);
if х < b then b:=х
else if х > а then а:=х;
end;
writeln (b-а);

 

В языке Паскаль использование циклов целесообразно:

Алгоритм, в котором команда или серия команд повторяется называется:

Установите соответствие между понятиями:

1.

while

2.

repeat

3.

for

Цикл во фрагменте программы:

а:=0.5;
s:=0;
i:=0;
repeat
i:=i+1;
b:=1/i;
s:=s+a;
until b<а;

выполнится... раз  (записать число)

В результате выполнения фрагмента программы:

s:=0;
n:=1;
while n<=10 do
begin
s:=s+n;
n:=n+1;
end;
writeln (‘s=’, s);

переменная s примет значение: (записать число)

Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5:

В данном фрагменте программы

 s:=0 ;
 for i:=1 to 10 do
s:=s+2*i;
 вычисляется:

Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле While:

Чему равно значение выводимой на печать переменной?

program prim15;

var S,i: integer;        

begin 

  S:=0;

  for i:=1 to 10 do

  if i mod 2<>0 then S:=S+i;

  writeln(S);

end.

Ниже записана программа. Укажите наименьшее двухзначное число  , при вводе которого алгоритм печатает  15.

program prim16;            

var i,x,b: integer;

begin

 readln(x); 

 b:=1;

 for i:=1 to 2 do

begin

  b:=b*(x mod 10);

  x:= x div 10;

end;

 writeln(b);

end.

Сколько раз выполнится оператор S, если Е1=Е2, а цикл записан в виде:

For v: =E1 to E2 do S;

Сколько раз будет выполняться цикл for i:=7 to 12 do…;

(записать число)

Чему будет равна переменная sum после выполнения фрагмента программы:
             sum:=0;
             for i:=7 to 9 do
             sum:=sum+i;

Сколько строк напечатает программа: 
     program prim11;

    var k,l :integer; 
     begin 
       for k:=8 downto 1 do 
       for l:=10 to 14 do 
       writeln('Мне нравится Паскаль.'); 
     end.

Какие значения t и k выведутся на экран в результате исполнения следующего фрагмента программы:

t:=0; k:=0;

for i:= 2 to 4 do

begin

t:=t+1;

k=k-1:

end;

writeln (t,k);

(Записать два числа через пробел)

Какой алгоритм реализован в программе:

Program prim2;

var a,b,c: integer;

begin

readln(a); b:=a;

for c:=1 to 5 do

begin

readln(a);

if a>b then b:=a;

end;

writeln(b);

end.

Какой алгоритм реализован в программе:

Program prim2;

var a,b,c: integer;

begin

b:=1;

for c:=1 to 5 do

begin

readln(a);

b:=b*a;

end;

writeln(b);

end.