Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
    Начать продвижение сайта
  • readln(x);






    a: = 0; b: = 0;

    while x > 0 do begin

    a: = a+1;

    b: = b+(x mod 100);

    x: = x div 100;

    End;

    Writeln(a); write(b);

    End.

    60) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 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 100);

    x: = x div 100;

    End;

    Writeln(a); write(b);

    End.

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

    var x, a, b: integer;

    Begin

    Readln(x);

    a: = 0; b: = 1;

    while x > 0 do begin

    a: = a+1;

    b: = b*(x mod 100);

    x: = x div 100;

    End;

    Writeln(a); write(b);

    End.

    62) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 5, а потом 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 < 8 then b: = b + 1;

    x: = x div 10

    End;

    Writeln(a);

    Writeln(b)

    End.

    63) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите набольшее пятизначное число 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 < 8 then b: = b + 1;

    x: = x div 10

    End;

    Writeln(a);

    Writeln(b)

    End.

    64) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите набольшее пятизначное число x, при вводе которого алгоритм печатает сначала 5, а потом 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 > 4 then a: = a + 1;

    if y < 6 then b: = b + 1;

    x: = x div 10

    End;

    Writeln(a);

    Writeln(b)

    End.

    65) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее пятизначное число 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 > 4 then a: = a + 1;

    if y < 6 then b: = b + 1;

    x: = x div 10

    End;

    Writeln(a);

    Writeln(b)

    End.

    66) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее пятизначное число 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 > 3 then a: = a + 1;

    if y < 7 then b: = b + 1;

    x: = x div 10

    End;

    Writeln(a);

    Writeln(b)

    End.

    67) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите набольшее пятизначное число 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 > 4 then a: = a + 1;

    if y < 7 then b: = b + 1;

    x: = x div 10

    End;

    Writeln(a);

    Writeln(b)

    End.

     


    [1] Источники заданий:

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

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

    3. Путимцева Ю.С. Информатика. Диагностические работы в формате ЕГЭ 2012. М.: МЦНМО, 2012.

    4. Евич Л.Н., Кулабухов С.Ю. Информатика и ИКТ. Подготовка к ЕГЭ-2014. — Ростов-на-Дону: Легион, 2013.






    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.