Информатика | 10 - 11 классы
Задания 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.
Определите, какое число будет напечатано на экране в результате выполнения следующей программы :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.
Объясните, пожалуйста.
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.
В таблице 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.
ОБЪЯСНИТЕ КАК РЕШАТЬ 10 ЗАДАНИЕ ОГЭ ПО ИНФОРМАТИКЕЖелательно, чтобы было максимально понятно с :В таблице Dat хранятся положительные или отрицательные целые числа?
ОБЪЯСНИТЕ КАК РЕШАТЬ 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.
Перевод кода паскаль в 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.
СрочноProgram sredarifment ;Var a : array[1?
Срочно
Program sredarifment ;
Var a : array[1.
10] of real ;
i, k : integer ;
C, S, sred : real ;
Begin
For i : = 1 to 10 do begin write ('a[', i, '] = ') ; readln (a[i]) ; end ;
write('введите C : ') ; readln (C) ;
For i : = 1 to 10 do begin If a[i]>C then begin S = S + a[i] ; K = K + 1 ; end ; end ;
sred = S / k ;
Writeln('среднее арифметическое чисел, превосходящих ', C, ' равно ', sred) ;
End.
Помогите чтобы программа запускалась.
Выходит что не верно.
Нужно составить описание к программеprogram pr1 ;const n = 5 ;var a : array[1?
Нужно составить описание к программе
program pr1 ;
const n = 5 ;
var a : array[1.
N] of integer ;
i, s1, s2 : integer ;
begin
randomize ;
s1 : = 0 ;
s2 : = 0 ;
for i : = 1 to n do begin
a[i] : = random(20) - 8 ;
writeln(a[i] : 4, ' Порядковый номер ', i) ;
end ;
writeln ;
for i : = 1 to n do begin
if i mod 20 then s1 : = s1 + sqr(a[i]) * a[i] ;
if i mod 2 = 0 then s2 : = s2 + sqr(a[i]) ;
end ;
writeln('Сумма 1 = ', s1) ;
writeln('Сумма 2 = ', s2) ;
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 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
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
if Dat [ k] * m< 0 then
begin
m : = Dat[k] ;
num : = k
end ;
writeln(m) ;
End.
Ответ
3.