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

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

artem
movlam11
Gavrilova2527
kengyra
zabava-83
Burov1446
мурувватовна викторович569
saa002
Stanislavovna1237
lenapopovich556510
ksoboleva
festjob
bas7572513
Рафаэль633
Татьяна Гришаевич