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