Составить программу, которая будет вводить пять целых чисел с клавиатуры и выводить на экран только те, которые принадлежат интервалам (0,5) и (-1,-8), либо выводить соответствующее сообщение.

177

320

Посмотреть ответы 2

Ответы на вопрос:

ArtyomKashin

Информатика

4,6(98 оценок)

Если требуется выводить соответствующее сообщение в случае, когда таких чисел нет: var i, x, k : integer; begin k: =0; for i: =1 to 5 do begin readln(x); if ((x> 0) and (x< 5)) or ((x> -8) and (x< -1)) then begin k: =k+1; writeln(x); end; end; if k=0 then writeln('нет таких чисел'); end. если требуется выводить соответствующее сообщение каждый раз когда число не входит в промежуток: var i, x : integer; begin for i: =1 to 5 do begin readln(x); if ((x> 0) and (x< 5)) or ((x> -8) and (x< -1)) then writeln(x) else writeln(x,' не входит в промежуток'); end; end.