Есть ответ 👍

Ниже записана программа. получив на вход число x, эта программа печатает два числа. укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 10. var x, l, m: integer; begin readln(x); l: =0; m: =0; while x > 0 do begin l: =l+1; if (m < x) and (x mod 2 = 1) then begin m: = (x mod 10) * 2; end; x: = x div 10; end; writeln(l); write(m); end.

134
366
Посмотреть ответы 2

Ответы на вопрос:


Будет число 115 вот так

var min,num: int64; begin  writeln('vvedite chislo');   readln(num);   min: =num mod 10;   while(num> 0) do begin      if(min> (num mod 10)) then min: =num mod 10;       num: =num div 10;   end;   writeln(min);   readln;   end.

Популярно: Информатика