Ниже записана программа. получив на вход число 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
Ответы на вопрос:
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.
Популярно: Информатика
-
ббэшка07.01.2023 01:02
-
romanajmusin52001.11.2020 15:10
-
romamuver22.11.2022 18:08
-
A01AA025.05.2022 13:40
-
vitiatiger23.05.2023 12:05
-
алекссоколевский26.10.2020 10:16
-
brijet200727.09.2020 08:11
-
udinaaa06.06.2022 14:02
-
УмнаяВыхухоль07.04.2020 21:50
-
njvbyf04Юля26.04.2020 15:13