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