Информатика | 10 - 11 классы
Укажите наибольшее х, при вводе которого алгоритм печатает сначала 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.
Ниже записан алгоритм?
Ниже записан алгоритм.
Получив на вход число х, этот алгоритм печатает два числа L и M.
Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 120.
Var х, L, M : integer ;
begin
readln (x) ;
L : = 0 ; M : = 1 ;
while x> ; 0 do
begin
L : = L + 1 ;
M : = M * (x mod 8) ;
х : = x div 8 ;
end ;
writeln(L) ; write(M) ;
end.
Ниже записана программа?
Ниже записана программа.
Получив на вход число x, эта программа печатает два числа, L и M.
Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 8.
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 = 0) then begin M : = x mod 10 ; end ; x : = x div 10 ; end ; writeln(L) ; write(M) ; end.
Перевод программы с Pascal на QBasic Решение : var a, s : integer ; begin s : = 0 ; readln(a) ; while a< ; > ; 0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s : = s + a ; readln(a) ; end ; w?
Перевод программы с Pascal на QBasic Решение : var a, s : integer ; begin s : = 0 ; readln(a) ; while a< ; > ; 0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s : = s + a ; readln(a) ; end ; writeln(s) end.
ПОМОГИТЕ СРОЧНО?
ПОМОГИТЕ СРОЧНО!
Ниже написана программа.
Получив на вход число x, эта программа печатает два числа, a и b.
Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 9.
ПОЖАЛУЙСТА С РЕШЕНИЕМ!
Var x, a, b : integer ; begin readln (x) ; a : = 0 ; b : = 1 ; while x > ; 0 do begin a : = a + 1 ; b : = b * (x mod 5) ; x : = x div 5 ; end ; writeln (a) ; write (b) ; end.
56) Получив на вход число х, этот алгоритм печатает два числа a и b?
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.
Ниже записана программа?
Ниже записана программа.
Получив на вход число x, эта программа печатает два числа.
Укажите набольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 24.
Var x, a, b : integer ; begin readln(x) ; a : = 0 ; b : = 1 ; while x > ; 0 do begin a : = a + 1 ; b : = b * (x mod 8) ; x : = x div 8 ; end ; writeln(a) ; write(b) ; end.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
При каком наибольшем n программа выведет на экран сначала 2, а потом 12?
При каком наибольшем n программа выведет на экран сначала 2, а потом 12?
Var n, a, b, c : integer ; begin readln(n) ; a : = 0 ; b : = 0 ; while n > ; 0 do begin a : = a + 1 ; b : = b + (n mod 100) ; n : = n div 100 ; end ; writeln(a) ; write(b) ; end.
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Ниже записан алгоритм?
Ниже записан алгоритм.
Получив на вход число X, этот алгоритм печатает два числа : a и b.
Укажите наименьшее из таких чисел X при вводе которого алгоритм печатает сначала 15, а потом 7.
Паскаль var x, a, b, k : integer ; begin readln(x) ; a : = 0 ; b : = 10 ; while x> ; 0 do begin k : = x mod 10 ; a : = a + k ; If k< ; b : = k ; x : = x div 10 end ; writeln(a) ; writeln(b) ; end.
На странице вопроса Укажите наибольшее х, при вводе которого алгоритм печатает сначала 3, а потом 4? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Код программы
var x, L, M : integer ;
procedure Calc(x : integer ; var L : integer ; var M : integer) ;
begin L : = 0 ; M : = 0 ; while x > ; 0 do begin L : = L + 1 ; if M < ; (x mod 5) then M : = x mod 5 ; X : = x div 5 ; end ;
end ;
begin for x : = 100 to 500 do begin Calc(x, L, M) ; if (L = 3) and (M = 4) then Println(x, L, M) ; end ;
end.
Вывод
100 3 4
101 3 4
102 3 4
103 3 4
104 3 4
105 3 4
106 3 4
107 3 4
108 3 4
109 3 4
110 3 4
111 3 4
112 3 4
113 3 4
114 3 4
115 3 4
116 3 4
117 3 4
118 3 4
119 3 4
120 3 4
121 3 4
122 3 4
123 3 4
124 3 4
суть процедуры заключается в том что она вычисляет кол - во цифр в 5ричном числе (L) и максимальну цифру в числе (М)
Максимальным для L = 3 M = 4 будет 124 или "444"_5.