Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Readln(x);
|
|
K: = 0; R: = 9;
y: = x mod 10;
while x > 0 do begin
K: = K + 1;
if R > x mod 10 then
R: = x mod 10;
x: = x div 10
End;
R: = y - R;
Writeln(K); writeln(R)
End.
54) Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, i, K, R, y: integer;
Begin
Readln(x);
K: = 0; R: = 9;
y: = x mod 10;
while x > 0 do begin
K: = K + 1;
if R > x mod 10 then
R: = x mod 10;
x: = x div 10
End;
R: = y - R;
Writeln(K); writeln(R)
End.
55) Получив на вход число х, этот алгоритм печатает два числа a и b. Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает сначала 2, а потом 13.
var x, a, b: integer;
Begin
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.
56) Получив на вход число х, этот алгоритм печатает два числа a и b. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 2, а потом 15.
var x, a, b: integer;
Begin
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.
57) Ниже записан алгоритм. Сколько существует таких чисел 
, при вводе которых алгоритм печатает сначала 2, а потом 15?
var x, a, b: integer;
Begin
Readln(x);
a: =0; b: =0;
while x> 0 do begin
a: =a + 1;
b: =b + (x mod 10);
x: =x div 10;
End;
Writeln(a); write(b);
End.
58) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает числа: a и b. Укажите наименьшее положительное пятизначное число x, при котором после выполнения алгоритма будет напечатано сначала 5, а потом 2.
var x, y, a, b: integer;
Begin
a: = 0;
b: = 10;
Readln(x);
while x > 0 do begin
y: = x mod 10;
x: = x div 10
if y > a then a: = y;
if y < b then b: = y;
End;
Writeln(a);
Writeln(b)
End.
59) Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает числа: a и b. Укажите наименьшее из таких чисел x, при вводе которого после выполнения алгоритма будет напечатано сначала 2, а потом 22.
var x, a, b: integer;
Begin