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*
Комментарий*

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

Mexx9050
РубенШафетдинов
Беспалова
Aleksandr768
Yelizaveta1848
Коновалова1705
ilyatamurov
skorykin123371
arnika-ooo1
Тоноян
marani2
Оксана
Verdievruslan
Дементьева-Артем1315
mukbidc