даны три числа . Выведете те из них которые принадлежат отрезку [-1; 3] Pascal
Answers & Comments
vladmor
Var a,b,c:real; begin writeln('Введите a,b,c'); readln(a,b,c); if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]'); if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]'); if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]'); end.
3 votes Thanks 2
archery
а не легче задать все как массив и не копипастить? хотя да тут быстрее скопипастить)
vladmor
Можно и через массив... Только что тут копипастить) Когда тут твое же решение называют спамом ... Такое уже было
archery
я просто из классики, если два копипаста то уже нужно хорошо задуматься о правильности структуры)
Answers & Comments
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]');
if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]');
if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]');
end.