Задать вопрос
27 февраля, 02:57

Укажите наименьшее из таких чисел X, при вводе которых алгоритм печатает сначала 11, а потом 5.

var x, a, b, c: integer;

begin

readln (x) ; a:=0; b:=10;

while x>0 do

begin

c:=x mod 10;

a: = a+c;

if c

+5
Ответы (2)
  1. 27 февраля, 05:19
    0
    56

    потому что сумма цифр должна быть ровна 11

    и наименьшая цифра=5
  2. 27 февраля, 05:28
    0
    Ответ: 56

    Так как переменная А это сумма разрядов в числе Х, а переменная В минимальное в этом числе. Тоесть сумма = 11 а младшее число 5 так ка нам надо минимальное то это 56 если максимальное то это было бы 65.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Укажите наименьшее из таких чисел X, при вводе которых алгоритм печатает сначала 11, а потом 5. var x, a, b, c: integer; begin readln (x) ; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Укажите наибольшее х, при вводе которого алгоритм печатает сначала 3, а потом 4. Var x, L, M: integer; begin readln (x) ; L:=0; M:=0; while x>0 do begin L:=L+1 If M< (x mod 5) then Begin M:=x mod 5 End X:=x div 5; End. Writeln (L) ; write (M) ; End
Ответы (1)
Умоляю, помогите ... Ниже на двух языках записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: a и b. Укажите наибольшее из таких четырёхзначных чисел x, при вводе которых алгоритм печатает сначала 7, а потом 29.
Ответы (1)
Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;
Ответы (1)
укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 25. program B08; var x, a, b: interger; begin readln (x) ; a:=0; b:=0; while x>0 do begin a:=a+1; if (x mod 2) then b: = b + (x mod 10) ; x:=x div 10; end;
Ответы (1)
Укажите наименьшее число x, при вводе которого алгоритм печатает сначала 4, а потом 8. Var x, L, M : integer; Begin Readln (x) ; L:=0; M:=0; While x>0 do Begin M: = M + 1; If x mod 10 0 then L: = L + 1; x: = x div 10; End; Writeln (L) ; Writeln (M) ;
Ответы (1)