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

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

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.

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.

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.

var sum: integer; b:boolean;
begin
sum:=4;
for b:= 2>5 to 5>2 do
  inc(sum,byte(b));
  write(sum); readln;
end.

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.