Напишите программы на языке pascal (оператор while): 1) напечатать целые числа -10, -5, 0, 5…20 2) найти произведение чисел из диапазона от a до b (a< =b) с шагом h вход: 1 15 5 вход: 10 100 30 выход: 66 выход: 28 3) для заданного натурального n и действительного x подсчитать сумму s = + + + + вход: 3 вход: 2 выход: 14 выход: 5 4) напечатать таблицу перевода расстояний в дюймах в сантиметры для значений 10, 11, 12, … 20 дюймов (1 дюйм=2, 54 см) выход: 10 дюймов=25, 4 см 11 дюймов=27, 94 см … 20 дюймов=50, 8 см 5) напечатать все целые значения от a до b с шагом h. вход: 1 10 2 вход: 5 20 5 выход: 1 3 5 7 9 выход: 5 10 15 20 6) найти сумму чисел из диапазона от a до b с шагом 3. вход: 1 15 вход: 0 10 выход: 35 выход: 18 7) для заданного натурального n и действительного x подсчитать сумму s = 1 + + + + вход: 3 вход: 5 выход: 1.83 выход: 2.28 8) напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 5, 10, 15 … 50 фунтов (1 фунт=0, 453 кг) выход: 5 фунтов=2, 265 кг 10 фунтов=4, 53 кг … 50 фунтов=22, 65 кг

1) Напечатать целые числа -10, -5, 0, 5…20:

```pascal
program Task1;
var
num: integer;
begin
num := -10;
while num <= 20 do
begin
writeln(num);
num := num + 5;
end;
end.
```

2) Найти произведение чисел из диапазона от a до b (a <= b) с шагом h:

```pascal
program Task2;
var
a, b, h, product, num: integer;
begin
readln(a, b, h);
product := 1;
num := a;
while num <= b do
begin
product := product * num;
num := num + h;
end;
writeln(product);
end.
```

3) Для заданного натурального n и действительного x подсчитать сумму s = 1^2 + 2^2 + 3^2 + ... + n^2:

```pascal
program Task3;
var
n, i: integer;
sum: real;
begin
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + sqr(i);
end;
writeln(sum);
end.
```

4) Напечатать таблицу перевода расстояний в дюймах в сантиметры для значений 10, 11, 12, … 20 дюймов (1 дюйм=2,54 см):

```pascal
program Task4;
var
inches: integer;
centimeters: real;
begin
for inches := 10 to 20 do
begin
centimeters := inches * 2.54;
writeln(inches, ' дюймов = ', centimeters, ' см');
end;
end.
```

5) Напечатать все целые значения от a до b с шагом h:

```pascal
program Task5;
var
a, b, h, num: integer;
begin
readln(a, b, h);
num := a;
while num <= b do
begin
writeln(num);
num := num + h;
end;
end.
```

6) Найти сумму чисел из диапазона от a до b с шагом 3:

```pascal
program Task6;
var
a, b, num, sum: integer;
begin
readln(a, b);
sum := 0;
num := a;
while num <= b do
begin
sum := sum + num;
num := num + 3;
end;
writeln(sum);
end.
```

7) Для заданного натурального n и действительного x подсчитать сумму s = 1 + 1/2 + 1/3 + ... + 1/n:

```pascal
program Task7;
var
n, i: integer;
sum: real;
begin
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + 1 / i;
end;
writeln(sum:0:2);
end.
```

8) Напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 5, 10, 15 ... 50 фунтов (1 фунт=0,453 кг):

```pascal
program Task8;
var
pounds: integer;
kilograms: real;
begin
for pounds := 5 to 50 do
begin
kilograms := pounds * 0.453;
writeln(pounds, ' фунтов = ', kilograms:0:3, ' кг');
end;
end.
```