нужна паскаль програма що перевіряє чи відноситься число до інтервалу від 10 до 30 :=10 to 30 do чи ні
еще понятнее – я ввожу числа, программа должна найти какие из них принадлежат интервалу [1 to 30] и умножить (произведение) принадлежащих интервалу [1 to 30].
Ответы
Ответ:
```pascal
program CheckNumberInterval;
var
numberToCheck: integer;
begin
// Введення числа, яке потрібно перевірити
write('Введіть число: ');
readln(numberToCheck);
// Перевірка, чи відноситься число до інтервалу від 10 до 30
if (numberToCheck >= 10) and (numberToCheck <= 30) then
writeln('Число відноситься до інтервалу від 10 до 30.')
else
writeln('Число НЕ відноситься до інтервалу від 10 до 30.');
// Завершення програми
readln;
end.
```
program DobutokChisel;
var
i, dobutok: integer;
begin
dobutok := 1; // Ініціалізуємо змінну dobutok одиницею
for i := 1 to 30 do
begin
dobutok := dobutok * i; // Перемножуємо поточне число на dobutok
end;
writeln('Добуток чисел від 1 до 30 дорівнює: ', dobutok);
end.
```
Цей код використовує цикл `for`, щоб обчислити добуток чисел від 1 до 30 та вивести його на екран.
Ответ:
Объяснение:
program CheckInterval;
var
number: Integer;
begin
// Введення числа
writeln('Введіть число:');
readln(number);
// Перевірка, чи відноситься число до інтервалу
if (number >= 10) and (number <= 30) then
writeln('Число належить інтервалу від 10 до 30')
else
writeln('Число не належить інтервалу від 10 до 30');
end.
Треба щоб програма дозволяла ввести числа - перевірити відносяться до інтервалу - ті,які відносяться, помножити
Паскаль программа Найти какое из них принадлежат интервалу [1 to 30] и умножить (произведение) те, что принадлежат интервалу [1 to 30].
Надо чтобы программа могла позволяла числа - проверить относящиеся к интервалу - относящиеся умножить