Информатика | 5 - 9 классы
СРОЧНООО , ПОМОГИИИТЕ((((
Ниже записана программа.
Получив на вход число , эта программа печатает два числа, 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 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.
Объясните, пожалуйста.
Составить программу, которая вводит три числа и печатает сумму двух наибольших?
Составить программу, которая вводит три числа и печатает сумму двух наибольших.
Срочно пожалуйста!
Ниже записана программа?
Ниже записана программа.
Получив на вход число , эта программа
печатает два числа, 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 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.
А как быть с этим?
А как быть с этим?
Определите пожалуйста, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 120 :
var i, k : integer ;
function F(x : integer) : integer ;
begin if x < 1 then F : = 1 else F : = F(x - 1) + 3 * F(x - 2) ;
end ;
begin i : = 0 ; readln(K) ; while F(i) < K do i : = i + 1 ; writeln(i) ;
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.
Перевести из 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.
Вы находитесь на странице вопроса СРОЧНООО , ПОМОГИИИТЕ((((Ниже записана программа? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
На каждой итерации цикла у числа x отбрасывается последняя цифра пока x не станет 0.
К переменной M прибавляется последняя цифра числа x если x - четное число.
Переменная L выводит количество цифр в числе x.
Если L должна быть равна 3 , а M - 0 , то число x должно быть трехзначным и не содержать четных цифр.
Максимальное такое число - 999.