Цифрои десятков и ци роод
ся на 25.
56. Выпишите все числа в пределах трёхсот, которые кратны 25. Про-
наблюдайте закономерность и сделайте вывод, какие числа делят-ся на 25​

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

состояние тропосферы в данной местности и в данное время называеться погодой

в результате выполнения первого цикла

  for i: =1 tо n do a[i] : = i

в массиве будут находится числа от 1 до 10 по возрастанию

j: =1

затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1

так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9

значит j станет равно 10

program zadacha1; var ves, rost, optves: integer; begin  write('введите массу тела');   read(ves);   write('введите рост в см');   read(rost);   optves: =rost-100;   if ves> optves then write('вам необходимо похудеть на', abs(optves-ves) );   if ves< optves then write('вам необходимо поправиться на', abs(optves-ves) );   if ves=optves then write ('ваш вес оптимальный')end.