.RU
Карта сайта

var x, a, b : integer - Тема : Анализ программы, содержащей подпрограммы, циклы и ветвления


var x, a, b : integer;


begin


readln(x);


a := 0; b := 1;


while x > 0 do begin


a := a + 1;


b := b * (x mod 10);


x := x div 10;


end;


writeln(a); write(b);


end.



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

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:= L + 1;


M:= M + x mod 10;


x:= x div 10;


end;


writeln(L); write(M);


end.



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

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:= L + 1;


if x mod 2 = 0 then


M:= M + x mod 10;


x:= x div 10;


end;


writeln(L); write(M);


end.



  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0.

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:= L + 1;


if x mod 2 = 0 then


M:= M + x mod 10;


x:= x div 10;


end;


writeln(L); write(M);


end.



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

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:= L + 1;


if x mod 2 = 1 then


M:= M + x mod 10;


x:= x div 10;


end;


writeln(L); write(M);


end.



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

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:= L + 1;


if x mod 2 = 0 then


M:= M + (x mod 10) div 2;


x:= x div 10;


end;


writeln(L); write(M);


end.



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

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:= L + 1;


if x mod 2 = 1 then


M:= M + (x mod 10) div 2;


x:= x div 10;


end;


writeln(L); write(M);


end.



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

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:=L+1;


if M < x then begin


M:=x mod 10;


end;


x:= x div 10;


end;


writeln(L); write(M);


end.



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

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:=L+1;


if (M < x) and (x mod 2 = 0) then begin


M:=x mod 10;


end;


x:= x div 10;


end;


writeln(L); write(M);


end.



  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:=L+1;


if (M < x) and (x mod 2 = 1) then begin


M:= (x mod 10) * 2;


end;


x:= x div 10;


end;


writeln(L); write(M);


end.



  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 28.

var x, L, M: integer;


begin


readln(x);


L:=0; M:=0;


while x > 0 do begin


L:=L+1;


if M < x then begin


M:= M + (x mod 10) * 2;


end;


x:= x div 10;


end;


writeln(L); write(M);


end.



  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 72.

var x, a, b: integer;


begin


readln(x);


a:=0; b:=1;


while x>0 do begin


a:=a+1;


b:=b*(x mod 10);


x:= x div 10;


end;


writeln(a); write(b);


end.



  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 14.

var x, a, b : integer;


begin


readln(x);


a := 0; b := 1;


while x > 0 do begin


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 10);


x := x div 10;


end;


writeln(a); write(b);


end.



  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 36.

var x, a, b : integer;


begin


readln(x);


a := 0; b := 1;


while x > 0 do begin


a := a + 1;


b := b * (x mod 10);


x := x div 10;


end;


writeln(a); write(b);


end.



  1. (

    Д.Ю. Мельникова

    , г. Саратов) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите набольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 24.

var x, a, b : integer;


begin


readln(x);


a := 0; b := 1;


while x > 0 do begin


a := a + 1;


b := b * (x mod 8);


x := x div 8;


end;


writeln(a); write(b);


end.



  1. (

    Д.Ю. Мельникова

    , г. Саратов) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, a, b : integer;


begin


readln(x);


a := 0; b := 1;


while x > 0 do begin


a := a + 1;


b := b * (x mod 8);


x := x div 8;


end;


writeln(a); write(b);


end.



  1. (

    Д.Ю. Мельникова

    , г. Саратов) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 6.

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. (

    Д.Ю. Мельникова

    , г. Саратов) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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 Источники заданий:

  1. Авторские разработки.

  2. Тренировочные и диагностические работы МИОО 2010-2011 гг.

http://kpolyakov.narod.ru
2014-07-19 18:44
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • © sanaalar.ru
    Образовательные документы для студентов.