Информатика | 5 - 9 классы
ОБЪЯСНИТЕ КАК РЕШАТЬ 10 ЗАДАНИЕ ОГЭ ПО ИНФОРМАТИКЕ
Желательно, чтобы было максимально понятно с :
В таблице Dat хранятся положительные или отрицательные целые числа.
Определите, что будет напечатано в результате выполнения следующего алгоритма, написанного на трех алгоритмических языках.
Алгоритмический язык
алг
нач
целтаб Dat[1 : 10]
цел к, т, пит
Dat[1] : = 7 ; Dat[2] : = - 8
Dat[3] : = 3 ; Dat[4] : = б
Dat[5] : = - 4 ; Dat[6] : = 3
Dat[ 7 ] : = 5 ; Dat[8] : = - 5
Dat [9] : = 7 ; Dat [10] : = 1
num : = 1 ; m : = Dat[1]
нц для k от 2 до 10
если Dat[k] * m < 0 то
m : = Dat[k] ; num : = k
все
кц
вывод num
кон
Бейсик
DIM Dat (10)AS INTEGER
Dat (1) - 7 : Dat (2) = - 8
Dat (3) = 3 : Dat (4) = 6
Dat (5) = - 4 Dat (6) = 3
Dat (7) = 5 : Dat (8) = - 5
Dat (9) = 7 : Dat(10) = I
num = 1 : m = Dat (1)
FOR k = 2 TO 10
IF Dat(k) * m < 0 THEN
m = Dat(k)
num = k
END IF
NEXT k
PRINT num
END
Паскаль
var k, m, num : integer ;
Dat : array[1.
10] of integer ;
begin
Dat[1] : = 7 ; Dat[2] : = - 8 ;
Dat[3] : = 3 ; Dat[4] : = 6 ;
Dat[5] : = - 4 ; Dat[6] : = 3 ;
Dat[7] : = 5 ; Dat[8] : = - 5 ;
Dat [9] : = 7 ; Dat[10] : = 1 ;
num : = 1 ; m : = Dat[1] ;
for k : = 2 to 10 do begin
if Dat[k] * m < 0 then
begin
m : = Dat [k] ; num : = k
end
end ;
write(num) ;
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.
Объясните, пожалуйста.
10В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т?
10
В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.
Д. ).
Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
Алгоритмический язык
алг
нач
целтаб Dat [1 : 10]
цел к, m
Dat [1] = 45 ; Dat[2] : = 55
Dat [3] = 40 ; Dat[4] : = 15
Dat [5] = 20 ; Dat[6] : = 80
Dat [7] = 35 ; Dat[8] : = 70
Dat [9] = 10
Dat [10] : = 45
m : = Dat[l]
нц для к от 2 до 10
если Dat[к] < Dat[l] то
m : = m + Dat[k]
все
кц
вывод m
кон
Бейсик
DIM Dat(10) AS INTEGER
Dat(1) = 45 Dat(2) = 55
Dat(3) = 40 Dat(4) = 15
Dat(5) = 20 Dat(6) = 80
Dat(7) = 35 Dat(8) = 70
Dat(9) = 10 Dat(10) = 45
m = Dat(1)
FOR k = 2 TO 10
IF Dat(k) < Dat (1)
THEN
m = m + Dat(k)
END IF
NEXT k
PRINT m
END
Паскаль
var k, m : integer ;
Dat : array[1.
10]
of integer ;
begin
Dat[1] : = 45 ; Dat[2] : = 55 ;
Dat[3] : = 40 ; Dat[4] : = 15 ;
Dat[5] : = 20 ; Dat[6] : = 80 ;
Dat[7] : = 35 ; Dat[8] : = 70 ;
Dat[9] : = 10 ; Dat[10] : = 45 ;
m : = Dat [1] ;
for k : = 2 to 10 do begin
if Dat[k] < Dat[1] then
begin
m : = m + Dat [k]
end
end ;
write(m) ;
end.
Задания 10 по огэ по информатике 2017 Var k, m : integer ; Dat : array[1…10] of integer ; Begin Dat[1] : = - 7 ; Dat[2] : = - 8 ; Dat[3] : = 3 ; Dat[4] : = 6 ; Dat[5] : = - 4 ; Dat[6] : = 3 ; Dat[7] ?
Задания 10 по огэ по информатике 2017 Var k, m : integer ; Dat : array[1…10] of integer ; Begin Dat[1] : = - 7 ; Dat[2] : = - 8 ; Dat[3] : = 3 ; Dat[4] : = 6 ; Dat[5] : = - 4 ; Dat[6] : = 3 ; Dat[7] : = 5 ; Dat[8] : = 5 ; Dat[9] : = 7 ; Dat[10] : = 1 ; num : = 1 ; m : = Dat (1) ; for k : = 2 to 10 do if Dat [ k] * m< 0 then begin m : = Dat[k] num : = k end ; writeln(m) ; End.
Определите, что будет напечатано в результате работы следующей программы?
Определите, что будет напечатано в результате работы следующей программы.
Текст программы приведен на трех языках программирования.
Алгоритмический язык Бейсик Паскаль
алг
нач цел s, k s : = 0 нц для k от 5 до 12 s : = s + 7 кц вывод s
кон DIM s, k AS INTEGER
s = 0
FOR k = 5 TO 12 s = s + 7
NEXT k
PRINT s
END var s, k : integer ;
begin s : = 0 ; for k : = 5 to 12 do s : = s + 7 ; write(s) ;
end.
В таблице Dat хранятся положительные или отрицательные целые числа?
В таблице Dat хранятся положительные или отрицательные целые числа.
Определите, что будет напечатано в результате выполнения следующего алгоритма.
Алг
нас
целтаб Dat[1 : 10]
цел k, m, num
Dat [1] : = 6 ; Dat [2] : = - 1
Dat [3] : = 2 ; Dat [4] : = 9
Dat [5] : = - 4 ; Dat [6] : = 3
Dat [7] : = 9 ; Dat [8] : = - 7
Dat [9] : = 7 ; Dat [10] : = 1
num : = 1 ; m : = Dat[1]
нц для k от 2 до 10
если Dat[k] < 2 * m то
m : = Dat[k]
num : = k
все
кц
вывод num
кон
Помогите пожалуйста!
).
Помогите найти ошибку (Информатика, Паскаль)?
Помогите найти ошибку (Информатика, Паскаль).
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.
А как быть с этим?
А как быть с этим?
Определите пожалуйста, количество чисел 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.
Название клавиш Esc, Enter, Shift, Caps Loock, Control, Alt, Backspace, Delete, Insert, Home, End, Page Up, Page Down, Num Look?
Название клавиш Esc, Enter, Shift, Caps Loock, Control, Alt, Backspace, Delete, Insert, Home, End, Page Up, Page Down, Num Look.
Перевод кода паскаль в c + +2)var i, sum : integer ;n : real ;beginsum : = 0 ;for i : = 1 to 15 dobeginreadln(n) ;if n = trunc(n) then sum : = sum + 1 ;end ;writeln(sum) ;end?
Перевод кода паскаль в c + +
2)var i, sum : integer ;
n : real ;
begin
sum : = 0 ;
for i : = 1 to 15 do
begin
readln(n) ;
if n = trunc(n) then sum : = sum + 1 ;
end ;
writeln(sum) ;
end.
2
Var
a1, b2, c, d : integer ;
begin
write('Введите числа через пробел : ') ;
read(a1) ;
for d : = 2 to 10 do begin
read(b2) ;
if b2>a1 then inc(c) ;
a1 : = b2 ;
end ;
if c = 9 then writeln('Да') else writeln('Нет') ;
end.
Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на языке программирования ПаскальVar s, k, x : integer ;begins : = 1 ;x : = 2 ;for k : = 1 to 9 dos : = s * x?
Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на языке программирования Паскаль
Var s, k, x : integer ;
begin
s : = 1 ;
x : = 2 ;
for k : = 1 to 9 do
s : = s * x ;
writeln(s) ;
end.
Вы открыли страницу вопроса ОБЪЯСНИТЕ КАК РЕШАТЬ 10 ЗАДАНИЕ ОГЭ ПО ИНФОРМАТИКЕЖелательно, чтобы было максимально понятно с :В таблице Dat хранятся положительные или отрицательные целые числа?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 5 - 9 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.
Эта программа ищет в массиве элементы, имеющие противоположный знак с предыдущими
Как дано в примере - выведет в качестве места смены знака 9, 8 - й элемент отрицателен, девятый положителен.