Для целого случайного числа из интервала [-30; 20] определите: а) попадает ли оно в интервал [5; 20] б) кратно ли оно 3 или 5. В Паскале

Question

Информатика

Федуля

23 декабря, 00:14

Для целого случайного числа из интервала [-30; 20] определите: а) попадает ли оно в интервал [5; 20] б) кратно ли оно 3 или 5. В Паскале

+3

Ответы (1)

Знаете ответ на вопрос?

Вена · Answer 1

Var k : integer;

Begin

Write ('Введите цифру от - 30 до 20: ') ;

ReadLn (k) ;

if ((k = 5)) then WriteLn ('Промежутку принадлежит')

else

WriteLn ('Промежутку не принадлежит') ;

End.

Вот и всё! Будут вопросы, пиши.