Тестирование Pascal Тема 5: Оператор цикла for

В каждой задаче выберите правильный ответ.
Затем нажмите кнопку "Оценить ответ"

Для ответа сервер не нужен - можно отключиться от Интернета


Варианты ответа

11
14
9
5
2
Программа вызовет
ошибку компиляции

Задача 1. Условия:

Что будет выведено на экран в результате
выполнения программы:
var i,k,sum:integer;
begin 
   k:=20; sum:=0;
   for i:= k mod 18 to sqr(2) do
      inc(sum,i);
   write(sum); readln;
end.

Варианты ответа

25
12
7
33
4
Программа вызовет
ошибку компиляции
16

Задача 2. Условия:

Что будет выведено на экран в результате
выполнения программы:
var i,k,sum:integer;
begin 
   sum:=0;
   for i:= 2 to 20 do
     begin
       if (i>=3) and (i<=8) then inc(sum,i);
       if sqr(i) > 20 then break;
     end;
   write(sum); readln;
end.

Варианты ответа

2x
xwv
2xwv
2xw
Программа вызовет
ошибку компиляции

Задача 3. Условия:

Что будет выведено на экран в результате
выполнения программы:
var c: char;  line: string;
begin
  line:='2';
  for c:= succ('w') downto pred('t') do
    if c > 'v' then line:= line + c;
    write(line); readln;
end.

Варианты ответа

5
4
7
6
1
Программа вызовет
ошибку компиляции

Задача 4. Условия:

Что будет выведено на экран в результате
выполнения программы:
var sum: integer; b:boolean;
begin
sum:=4;
for b:= 2>5 to 5>2 do
  inc(sum,byte(b));
  write(sum); readln;
end.

Варианты ответа

kooddiill
kkooddiil
kkooddiill
Программа вызовет
ошибку компиляции
kkkkkdd
kooddiil

Задача 5. Условия:

Что будет выведено на экран в результате
выполнения программы:
var i: integer; ss,tt:string;
begin
ss:='krokodil'; tt:='';
for i:=4 to 7 do
  tt:=tt+copy(ss,i,2);
  write(tt); readln;
end.

Если оценка не вычисляется, вероятно в Вашем браузере отключён JavaScript
Rambler's Top100
Hosted by uCoz