Информатика | 5 - 9 классы
ПОМОГИТЕ СРОЧНО!
Ниже написана программа.
Получив на вход число 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.
Ниже записан алгоритм?
Ниже записан алгоритм.
Получив на вход число х, этот алгоритм печатает два числа 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.
Paskal выдаёт ошибку, помогите пожалуйста испрвить : Задача : Написать программу, которая проверяет, является ли четным введенное пользователем целое число?
Paskal выдаёт ошибку, помогите пожалуйста испрвить : Задача : Написать программу, которая проверяет, является ли четным введенное пользователем целое число.
Program cisla ; var a : integer ; begin writeln('Введите число, ') ; readln(a) ; if a mod 2 = 0 then writeln('Число четное') ; else writeln('Число нечетное') ; readln 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, а потом 7.
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.
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.
При каком наибольшем 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.
Укажите наибольшее х, при вводе которого алгоритм печатает сначала 3, а потом 4?
Укажите наибольшее х, при вводе которого алгоритм печатает сначала 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.
Ниже записан алгоритм?
Ниже записан алгоритм.
Получив на вход число 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.
Вы находитесь на странице вопроса ПОМОГИТЕ СРОЧНО? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
/ / Я снова предстаю в ипостаси гуманитария, нежелающего ничего считать / / Сделаем так, чтобы код сам выдавал нам ответы
var x, a, b, m : integer ;
begin
for m : = 1 to 10000 do / / m - тот же x, сохранённый для цикла
begin ;
x : = m ;
a : = 0 ;
b : = 1 ;
while x > ; 0 do begin
a : = a + 1 ;
b : = b * (x mod 5) ;
x : = x div 5 ;
end ;
if (a = 3) and (b = 9) then writeln(m) ; / / если программа должна вернуть подходящие нам значения, возвращаем x
end ;
end.
Вывод программы :
43
83
91
Ответ : 91.