Выведите на экран те числа из заданного диапазона , которые делятся на 7 составьте программу в паскаль !

// PascalABC.NET 3.2, сборка 1387 от 17.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b:integer;
  Write('Введите границы диапазона: '); Read(a,b);
  if b<a then Swap(a,b);
  Range(a,b).Where(x->x mod 7=0).Println
end.

Пример
Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63

var a,b,i:integer;
begin
write('a, b: ');
readln(a,b);
for i:=a to b do
if i mod 7 = 0 then write(i,' ');
writeln;
end.

Пример:
a, b: 5 50
7 14 21 28 35 42 49

Первое изображение - это язык программирования "Python"

Второе изображение - это программа для моделирования объектов в 3D "SketchUp"

Сравнивать их бессмысленно, ведь это два разных ПО.

Особенности языка Python - доступность и лёгкость написания кода.

Особенности программы SketchUp - почти полное отсутствие окон предварительных настроек. Все геометрические характеристики во время или сразу после окончания действия инструмента задаются с клавиатуры в поле Value Control Box (поле контроля параметров), которое находится в правом нижнем углу рабочей области, справа от надписи Measurements (панель измерений).

5

Объяснение:

пока S1 < S выполняем действия:

N = N + 1

S1 = S1 + 1 / N

S = 2,13       S1 = 0       N = 0

S1 < S       0 < 2,13       ДА

N = 0 + 1 = 1

S1 = 0 + 1 / 1 = 0 + 1 = 1

S1 < S       1 < 2,13       ДА

N = 1 + 1 = 2

S1 = 1 + 1 / 2 = 1 + 0,5 = 1,5

S1 < S       1,5 < 2,13       ДА

N = 2 + 1 = 3

S1 = 1,5 + 1 / 3 = 1,5 + 0,333 = 1,833

S1 < S       1,833 < 2,13       ДА

N = 3 + 1 = 4

S1 = 1,833 + 1 / 4 = 1,833 + 0,25 = 2,083

S1 < S       2,083 < 2,13       ДА

N = 4 + 1 = 5

S1 = 2,083 + 1 / 5 = 2,083 + 0,2 = 2,283

S1 < S       2,283 < 2,13       НЕТ

S = 2,13       S1 = 2,283       N = 5