СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до 17.07.2025

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

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

Категория: Информатика

Нажмите, чтобы узнать подробности

Подборка задач для подготовки к ЕГЭ задание № 20

Просмотр содержимого документа
«Анализ программы, содержащей циклы и ветвления»

Задание 20

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


Вариант №1


  1. Укажите наибольшее и наименьшее из чисел , при вводе которых алгоритм печатает сначала 3, а потом 9.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 dobegin

a := a + 1;

b := b + (x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.


  1. Укажите наибольшееи наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 5.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 do begin

a := a + 1;

b := b + (x mod 4);

x := x div 4;

end;

writeln(a); write(b);

end.

  1. Укажите набольшее и наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 4, а потом 2.

var x, y, a, b: longint;

begin

a := 0;

b := 0;

readln(x);

while x 0 do begin

y := x mod 10;

if y 3 then a := a + 1;

if y

x := x div 10

end;

writeln(a);

writeln(b)

end.

  1. Послевыполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа – это числа 14 и 56. Какое наибольшее число может быть напечатано третьим?

var x, y, z: integer;

r, a, b: integer;

begin

readln(x, у);

if у x then begin

z:= x; x:= у; у:= z;

end;

a:=x; b:=y;

while b0 do begin

r:= a mod b;

a:= b;

b:= r;

end;

writeln(a);

writeln(x);

write(у);

end.







Вариант №2


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

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 dobegin

a := a + 1;

if x mod 2 = 1 then b := b * (x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.


  1. Укажите наибольшее и наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 11.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 do begin

a := a + 1;

b := b + (x mod 6);

x := x div 6;

end;

writeln(a); write(b);

end.


  1. Укажите набольшее и наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 2, а потом 4.

var x, y, a, b: longint;

begin

a := 0;

b := 0;

readln(x);

while x 0 do begin

y := x mod 10;

if y 2 then a := a + 1;

if y

x := x div 10

end;

writeln(a);

writeln(b)

end.



  1. Послевыполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа – это числа 9 и 72. Какое наибольшее число может быть напечатано третьим?

var x, y, z: integer;

r, a, b: integer;

begin

readln(x, у);

if у x then begin

z:= x; x:= у; у:= z;

end;

a:=x; b:=y;

while b0 do begin

r:= a mod b;

a:= b;

b:= r;

end;

writeln(a);

writeln(x);

write(у);

end.









Вариант №3


  1. Укажите наибольшее и наименьшее из чисел , при вводе которых алгоритм печатает сначала 3, а потом 6.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 0;

while x 0 dobegin

a := a + 1;

if x mod 2 = 0 then b := b + (x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.


  1. Укажите наибольшееи наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 do begin

a := a + 1;

b := b + (x mod 7);

x := x div 7;

end;

writeln(a); write(b);

end.


  1. Укажите набольшее и наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 4, а потом 2.

var x, y, a, b: longint;

begin

a := 0;

b := 0;

readln(x);

while x 0 do begin

y := x mod 10;

if y 3 then a := a + 1;

if y

x := x div 10

end;

writeln(a);

writeln(b)

end.



  1. Укажите наименьшее из такихчисел N, при вводе которых алгоритм напечатает 12.

var N, q, i: integer;

begin

read(N);

for i:=1 to N-1 do begin

if N mod i = 0 then q:=i

end;

write(q)

end.






Вариант №4


  1. Укажите наибольшее и наименьшее из чисел , при вводе которых алгоритм печатает сначала 4, а потом 6.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 dobegin

a := a + 1;

b := b * (x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.


  1. Укажите наибольшееи наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 9.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 do begin

a := a + 1;

b := b + (x mod 5);

x := x div 5;

end;

writeln(a); write(b);

end.


  1. Укажите набольшее и наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 4, а потом 3.

var x, y, a, b: longint;

begin

a := 0;

b := 0;

readln(x);

while x 0 do begin

y := x mod 10;

if y 3 then a := a + 1;

if y

x := x div 10

end;

writeln(a);

writeln(b)

end.



  1. Известно, что x 100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 35.

var x, L, M: integer;

begin

readln(x);

L := x-15;

M := x+20;

while L M do

if L M then

L := L - M

else

M := M – L;

writeln(M);

end.




Вариант №5


  1. Укажите наибольшее и наименьшее из чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 dobegin

a := a + 1;

b := b * (x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.


  1. Укажите наибольшееи наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x 0 do begin

a := a + 1;

b := b + (x mod 6);

x := x div 6;

end;

writeln(a); write(b);

end.


  1. Укажите набольшее и наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 3, а потом 4.

var x, y, a, b: longint;

begin

a := 0;

b := 0;

readln(x);

while x 0 do begin

y := x mod 10;

if y 2 then a := a + 1;

if y

x := x div 10

end;

writeln(a);

writeln(b)

end.



  1. Известно, что x 100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 40.

var x, L, M: integer;

begin

readln(x);

L := x-10;

M := x+30;

while L M do

if L M then

L := L - M

else

M := M – L;

writeln(M);

end.



Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!