Задачник-сборник по информатике

I вариант

Что будет на экране?

1)a:=5; s:=6; while a<=9 do begin s:=s+a-1; inc(a) end; writeln(a,’ ‘, s);

2)a:=5; s:=6; while a<=9 do begin inc(a); s:=s+a-1 end; writeln(a,’ ‘, s);

3)a:=5; s:=6; while a<=9 do inc(a); s:=s+a-1; writeln(a,’ ‘, s);

4)a:=5; s:=6; while a<=9 do s:=s+a-1; inc(a); writeln(a,’ ‘, s);

Найти все двузначные числа, кратные 3

II вариант

Что будет на экране?

1)b:=3; a:=5; while b<=9 do begin a:=a+b+2; inc(b) end; writeln(b,’ ‘, a);

2)b:=3; a:=5; while b<=9 do begin inc(b); a:=a+b+2 end; writeln(b,’ ‘, a);

3)b:=3; a:=5; while b<=9 do inc(b); a:=a+b+2; writeln(b,’ ‘, a);

4)b:=3; a:=5; while b<=9 do a:=a+b+2; inc(b); writeln(b,’ ‘, a);

Найти все трехначные числа, кратные 5

III вариант

Что будет на экране?

1)q:=5; d:=1; while q>0 do begin d:=d+q; dec(q) end; writeln(q,’ ‘, d);

2)q:=5; d:=1; while q>0 do begin dec(q); d:=d+q end; writeln(q,’ ‘, d);

3)q:=5; d:=1; while q>0 do dec(q); d:=d+q; writeln(q,’ ‘, d);

4)q:=5; d:=1; while q>0 do d:=d+q; dec(q); writeln(q,’ ‘, d);

Найти все числа, кратные 3 на интервале от 15 до 255

IV вариант

Что будет на экране?

1)p:=2; u:=6; while p<=6 do begin u:=u+p-2; inc(p) end; writeln(p,’ ‘, u);

2)p:=2; u:=6; while p<=6 do begin inc(p); u:=u+p-2 end; writeln(p,’ ‘, u);

3)p:=2; u:=6; while p<=6 do inc(p); u:=u+p-2; writeln(p,’ ‘, u);

4)p:=2; u:=6; while p<=6 do u:=u+p-2; inc(p); writeln(p,’ ‘, u);

Найти все числа, кратные 4 на промежутке от 5 до 111

V вариант

Что будет на экране?

1)t:=20; r:=11; while t>=15 do begin r:=r+t-1; dec(t) end; writeln(t,’ ‘, r);

2)t:=20; r:=11; while t>=15 do begin dec(t); r:=r+t-1 end; writeln(t,’ ‘, r);

3)t:=20; r:=11; while t>=15 do dec(t); r:=r+t-1; writeln(t,’ ‘, r);

4)t:=20; r:=11; while t>=15 do r:=r+t-1; dec(t); writeln(t,’ ‘, r);

Найти все четырехзначные числа, кратные 11

VI вариант

Что будет на экране?

1)x:=2; v:=6; while x<=5 do begin v:=v+x; inc(x) end; writeln(x,’ ‘, v);

2)x:=2; v:=6; while x<=5 do begin inc(x); v:=v+x end; writeln(x,’ ‘, v);

3)x:=2; v:=6; while x<=5 do inc(x); v:=v+x; writeln(x,’ ‘, v);

4)x:=2; v:=6; while x<=5 do v:=v+x; inc(x); writeln(x,’ ‘, v);

Найти все числа, кратные 5 на промежутке от 7 до 222

VII вариант

Что будет на экране?

1)g:=7; y:=6; while g>4 do begin y:=y+g+3; dec(g) end; writeln(g,’ ‘, y);

2)g:=7; y:=6; while g>4 do begin dec(g); y:=y+g+3 end; writeln(g,’ ‘, y);

3)g:=7; y:=6; while g>4 do dec(g); y:=y+g+3; writeln(g,’ ‘, y);

4)g:=7; y:=6; while g>4 do y:=y+g+3; dec(g); writeln(g,’ ‘, y);

Найти все числа, кратные 33 на промежутке от 40 до 1011

VIII вариант

Что будет на экране?

1)r:=1; j:=2; while r<=4 do begin j:=j*r+1; inc(r) end; writeln(r,’ ‘, j);

2)r:=1; j:=2; while r<=4 do begin inc(r); j:=j*r+1 end; writeln(r,’ ‘, j);

3)r:=1; j:=2; while r<=4 do inc(r); j:=j*r+1; writeln(r,’ ‘, j);

4)r:=1; j:=2; while r<=4 do j:=j*r+1; inc(r); writeln(r,’ ‘, j);

Найти все числа, кратные 2 на промежутке от 3 до 456

IX вариант

Что будет на экране?

1)m:=34; b:=3; while m>=31 do begin b:=b-m; dec(m) end; writeln(m,’ ‘, b);

2)m:=34; b:=3; while m>=31 do begin dec(m); b:=b-m end; writeln(m,’ ‘, b);

3)m:=34; b:=3; while m>=31 do dec(m); b:=b-m; writeln(m,’ ‘, b);

4)m:=34; b:=3; while m>=31 do b:=b-m; dec(m); writeln(m,’ ‘, b);

Найти все числа, кратные 8 на промежутке от 99 до 7766

X вариант

Что будет на экране?

1)f:=15; h:=6; while f>=9 do begin h:=h+f-4; dec(f) end; writeln(f,’ ‘, h);

2)f:=15; h:=6; while f>=9 do begin dec(f); h:=h+f-4 end; writeln(f,’ ‘, h);

3)f:=15; h:=6; while f>=9 do dec(f); h:=h+f-4; writeln(f,’ ‘, h);

4)f:=15; h:=6; while f>=9 do h:=h+f-4; dec(f); writeln(f,’ ‘, h);

Найти все числа, кратные 11 на промежутке от 22 до 333

XI вариант

Что будет на экране?

1)z:=7; p:=-2; while z<=11 do begin p:=p+z+2; inc(z) end; writeln(z,’ ‘, p);

2)z:=7; p:=-2; while z<=11 do begin inc(z); p:=p+z+2 end; writeln(z,’ ‘, p);

3)z:=7; p:=-2; while z<=11 do inc(z); p:=p+z+2; writeln(z,’ ‘, p);

4)z:=7; p:=-2; while z<=11 do p:=p+z+2; inc(z); writeln(z,’ ‘, p);

Найти все числа, кратные 13 на промежутке от 56 до 7655

XII вариант

Что будет на экране?

1)e:=3; w:=9; while e<=6 do begin w:=w+e-5; inc(e) end; writeln(e,’ ‘, w);

2)e:=3; w:=9; while e<=6 do begin inc(e); w:=w+e-5 end; writeln(e,’ ‘, w);

3)e:=3; w:=9; while e<=6 do inc(e); w:=w+e-5; writeln(e,’ ‘, w);

4)e:=3; w:=9; while e<=6 do w:=w+e-5; inc(e); writeln(e,’ ‘, w);

Найти все числа, кратные 9 на промежутке от 102 до 5000

XIII вариант

Что будет на экране?

1)d:=-4; k:=d+5; while d<=1 do begin k:=k+d+3; inc(d) end; writeln(d,’ ‘, k);

2)d:=-4; k:=d+5; while d<=1 do begin inc(d); k:=k+d+3 end; writeln(d,’ ‘, k);

3)d:=-4; k:=d+5; while d<=1 do inc(d); k:=k+d+3; writeln(d,’ ‘, k);

4)d:=-4; k:=d+5; while d<=1 do k:=k+d+3; inc(d); writeln(d,’ ‘, k);

Найти все числа, кратные 15 на промежутке от 14 до 3498

XIV вариант

Что будет на экране?

1)x1:=7; x2:=x1*2; while x1<=10 do begin x2:=x2+x1-1; inc(x1) end; writeln(x1,’ ‘, x2);

2)x1:=7; x2:=x1*2; while x1<=10 do begin inc(x1); x2:=x2+x1-1 end; writeln(x1,’ ‘, x2);

3)x1:=7; x2:=x1*2; while x1<=10 do inc(x1); x2:=x2+x1-1; writeln(x1,’ ‘, x2);

4)x1:=7; x2:=x1*2; while x1<=10 do x2:=x2+x1-1; inc(x1); writeln(x1,’ ‘, x2);

Найти все числа, кратные 17 на промежутке от 65 до 10000

XV вариант

Что будет на экране?

1)v:=1; w:=2; while v<=6 do begin w:=w+v*2; inc(v) end; writeln(v,’ ‘, w);

2)v:=1; w:=2; while v<=6 do begin inc(v); w:=w+v*2 end; writeln(v,’ ‘, w);

3)v:=1; w:=2; while v<=6 do inc(v); w:=w+v*2; writeln(v,’ ‘, w);

4)v:=1; w:=2; while v<=6 do w:=w+v*2; inc(v); writeln(v,’ ‘, w);

Найти все числа, кратные 6 на промежутке от 66 до 6666