Для целого случайного числа из интервала [-30;20] определите : а) попадает ли оно в интервал [5;20] б) кратно ли оно 3 или 5 . В Паскале
Answers & Comments
sdsdf
Var k : integer; Begin Write('Введите цифру от -30 до 20: '); ReadLn(k); if ((k <= 20) and (k>= 5)) then WriteLn('Промежутку принадлежит') else WriteLn('Промежутку не принадлежит'); End.
Answers & Comments
Begin
Write('Введите цифру от -30 до 20: ');
ReadLn(k);
if ((k <= 20) and (k>= 5)) then WriteLn('Промежутку принадлежит')
else
WriteLn('Промежутку не принадлежит');
End.
Вот и всё! Будут вопросы , пиши.