Информатика | 10 - 11 классы
Ниже записана программа.
Получив на вход число , эта программа
печатает два числа, a и b.
Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 2, а потом 8.
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.
Определите, какое число будет напечатано на экране в результате выполнения следующей программы :var a, b : integer ;begin a : = 0 ; b : = 2 ; while b < 32 do begin a : = a + 1 ; b : = b * 2 ; end ; wr?
Определите, какое число будет напечатано на экране в результате выполнения следующей программы :
var a, b : integer ;
begin a : = 0 ; b : = 2 ; while b < 32 do begin a : = a + 1 ; b : = b * 2 ; end ; writeln(a) ;
end.
65) (Д?
65) (Д.
Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы :
var i, k : integer ;
function f(x : integer) : integer ;
var m : integer ;
begin
if x < 10 then f : = x
else begin
m : = f(x div 10) ;
if m < x mod 10 then
f : = x mod 10
else f : = m ;
end ;
end ;
begin
k : = 0 ;
for i : = 1000 to 9999 do
if f(i mod 100) = 1 then
if f(i div 100) = f(i mod 100) then
k : = k + 1 ;
writeln(k) ;
end.
Объясните, пожалуйста.
Составить программу, которая вводит три числа и печатает сумму двух наибольших?
Составить программу, которая вводит три числа и печатает сумму двух наибольших.
Срочно пожалуйста!
СРОЧНООО , ПОМОГИИИТЕ((((Ниже записана программа?
СРОЧНООО , ПОМОГИИИТЕ((((
Ниже записана программа.
Получив на вход число , эта программа печатает два числа, L и M .
Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0.
Var x, L, M : integer ; begin readln(x) ; L : = 0 ; M : = 0 ; while x > 0 do begin L : = L + 1 ; if x mod 2 = 0 then M : = M + x mod 10 ; x : = x div 10 ; end ; writeln(L) ; write(M) ; end.
Помогите найти ошибку (Информатика, Паскаль)?
Помогите найти ошибку (Информатика, Паскаль).
Var s, k, a : integer ;
Begin
s : = 0 ;
k : = 0 ;
Read(a) ;
while a0 do
Begin
if a mod 8 = 0 then
Begin
s : = s + a ;
k : = k + 1 ;
end ;
Readln(a) ;
end ;
var y : real ;
begin
y : = s / k ;
Read(s) ;
if s>0 then
Writeln(y)
else
Writeln('NO')
end ;
end.
Определите число : которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль)var n, s : integerbeginn : = 0 ;s : = 402 ;while s>0 dobegins : = s - 10 ;n : = ?
Определите число : которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль)
var n, s : integer
begin
n : = 0 ;
s : = 402 ;
while s>0 do
begin
s : = s - 10 ;
n : = n + 3
end ;
write(n)
end.
Дайте ответ пожалуйста?
Дайте ответ пожалуйста!
Ниже записана программа.
Получив на вход число , эта программа печатает два числа, и .
Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом10.
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.
Какое число необходимо подать на вход программе, чтобы было выведено число 6387?
Какое число необходимо подать на вход программе, чтобы было выведено число 6387?
Var n : integer ;
begin
readln(n) ;
writeln(n div 100 mod 10 * 1000 + n div 10 mod 10 * 100 + n mod 10 * 10 + n div 1000) ;
end.
1. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 0?
1. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 0.
Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
2. Что будет на экране после выполнения программы
Var I, s, k : integer ;
Begin .
S : = 0 ;
for i : = 0 to 10 do
s : = s - i + 5 ; writeln(s) ;
End.
Перевести из Pascal в Сvar a, b : longint ; n, m : byte ;begin readln(a) ; readln(n) ; b : = 0 ; while a > 0 do begin m : = a mod 10 ; if m n then b : = b * 10 + m ; a : = a div 10 ; end ; while b > 0?
Перевести из Pascal в С
var a, b : longint ; n, m : byte ;
begin readln(a) ; readln(n) ; b : = 0 ; while a > 0 do begin m : = a mod 10 ; if m n then b : = b * 10 + m ; a : = a div 10 ; end ; while b > 0 do begin a : = a * 10 + b mod 10 ; b : = b div 10 ; end ; writeln(a) ;
end.
На этой странице находится вопрос Ниже записана программа?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 10 - 11 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
Заметим, что a - это счетчик, считающий кол - во выполнений цикла.
Т. к по условию программа выводит сначала 2, то цикл выполняется 2 раза.
В переменной b с конца отрезаются два остатка, а их сумма суммируется.
X div 100 отрезает сотни, делаем вывод о том, что число трехзначное.
Ответ : 800.
На каждой итерации цикла x div 100 убирает 2 цифры числа x с конца и к a прибавляется 1.
Тогда если a = 2 значит x лежит в диапазоне от 100 до 9999.
Например при x = 100 на первой итерации a = a + 1 = 1 , x = x div 100 = 1, 1>0
цикло продолжается a : = a + 1 = 2 ; x : = x div 100 = 0.
При x = 9999 на первой итерации a = a + 1 = 1 , x = x div 100 = 99, 99>0
цикло продолжается a : = a + 1 = 2 ; x : = x div 100 = 0.
К переменной b прибавляется 2 последние цифры числа x.
Если в числе x будет четыре цифры то после первой итерации
в числе x останется 2 цифры.
Это значит что даже при минимальном четырехзначном числе x = 1000
b = b + (10 mod 100) = b + 10 = 10 мы получим значение большее 8.
Значит нам подходят только трехзначные числа.
Чтобы число было максимальным ставим 8 в сотни : 800.