Предмет: Информатика, автор: umustwatchorplay

нужна паскаль програма що перевіряє чи відноситься число до інтервалу від 10 до 30 :=10 to 30 do чи ні

Ответы

Автор ответа: amisha172008
0

Ответ:

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

```


amisha172008: ```pascal
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 та вивести його на екран.
Автор ответа: frogffann
0

Ответ:

Объяснение:

program CheckInterval;

var

 number: Integer;

begin

 // Введення числа

 writeln('Введіть число:');

 readln(number);

 // Перевірка, чи відноситься число до інтервалу

 if (number >= 10) and (number <= 30) then

   writeln('Число належить інтервалу від 10 до 30')

 else

   writeln('Число не належить інтервалу від 10 до 30');

end.

Похожие вопросы
Предмет: Алгебра, автор: gghavika
Предмет: Қазақ тiлi, автор: kompukterblog