Dragun1684
?>

Вывести на экран 10 чисел с шагом 2 с через паскаль с цикла с параметром, Например как :Var x, i: integer;X:=10;Fro i:=10 downto 1 do begin Writeln ('x=', x) ;x:=x-1end;End.​

Информатика

Ответы

Валентина980

ответ на фото, если конечно я тебя правильно поняла


Вывести на экран 10 чисел с шагом 2 с через паскаль с цикла с параметром, Например как :Var x, i: in
Камочкин
Оплата покупки в магазине, когда есть выбор оплаты - картой или наличными, если наличными то какими купюрами.
Задача подбора ноутбука по различным параметрам для покупки. Нужен такой то процессор, такая то видеокарта, но чтобы цена не превышала заданную.
Задача добраться до места назначения используя разветвленную сеть веток метро. Можно добраться разными маршрутами, нужно выбрать чтобы было меньше пересадок или меньше длинна пути чтоб была или как можно ближе к месту назначения чтобы выйти в итоге
Нозадзе_Новиков392

49

Объяснение:

n = 10

цикл для i от 1 до n - 1

n - 1 = 10 - 1 = 9

9 - 1 + 1 = 9

(количество повторов цикла = конечное значение i - начальное значение i + 1)

цикл выполнится 9 раз

если выполняется условие A[i] > A[i-1], то значение A[i] вычисляется по формуле A[i] = A[i] - A[i-1]

s = 0

i = 1

A[1] > A[0]   5 > 7   (НЕТ)

s = 0 + A[1] = 0 + 5 = 5

i = 2

A[2] > A[1]   13 > 5   (ДА)

A[2] = A[2] - A[1] = 13 - 5 = 8

s = 5 + A[2] = 5 + 8 = 13

i = 3

A[3] > A[2]   7 > 8   (НЕТ)

s = 13 + A[3] = 13 + 7 = 20

i = 4

A[4] > A[3]   5 > 7   (НЕТ)

s = 20 + A[4] = 20 + 5 = 25

i = 5

A[5] > A[4]   4 > 5   (НЕТ)

s = 25 + A[5] = 25 + 4 = 29

i = 6

A[6] > A[5]   11 > 4   (ДА)

A[6] = A[6] - A[5] = 11 - 4 = 7

s = 29 + A[6] = 29 + 7 = 36

i = 7

A[7] > A[6]   8 > 7   (ДА)

A[7] = A[7] - A[6] = 8 - 7 = 1

s = 36 + A[7] = 36 + 1 = 37

i = 8

A[8] > A[7]   10 > 1   (ДА)

A[8] = A[8] - A[7] = 10 - 1 = 9

s = 37 + A[8] = 37 + 9 = 46

i = 9

A[9] > A[8]   3 > 9   (НЕТ)

s = 46 + A[9] = 46 + 3 = 49

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вывести на экран 10 чисел с шагом 2 с через паскаль с цикла с параметром, Например как :Var x, i: integer;X:=10;Fro i:=10 downto 1 do begin Writeln ('x=', x) ;x:=x-1end;End.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

fastprofit
maroseyka
Akopovich802
palchiknr
nst-33764
shymilin19951783
ams-sim
picsell
zoomagazinkotmatroskin
ryazantseva
goodsled
arturcristian
И.Д.1065
galkar
evg-martenyuk