Question

Напишите программы на языке 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 кг

Answer 1

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.
```