1 Program work1;
2 uses crt;
3 var x,y,z: real;
4 begin
5 clrscr ;
6 writeln('введите число x');
7 readln(x);
8 writeln('введите число y');
9 readln(y);
10 writeln('введите число z');
11 readln(z);
12 if (x<=3) and (x>=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу');
13 if (y<=3) and (y>=1) then writeln ('y- принадлежит интервалу') else writeln ('y не принадлежит и интервалу');
14 if (z<=3) and (z>=1) then writeln ('z-принадлежит интервалу') else writeln ('z не принадлежит и интервалу');
15 readln;
Объяснение:
https://ru-static.z-dn.net/files/dd2/796d7c2d2af92262840bd7209eb7f670.bmp картинка
{ по информатике решить в паскале имеется продуктовая база в которой можно закупить партию товара по условиям минимальная стоимость , близость поставки , прочность товара если товар удолетворяет - закупаем если ее удолетворяет - не закупаеммы вводим данные близость поставки, прочность товара, и минимальная стоимость если все три условия выполняются ввыводим закупаем а если не выполняются выводи не закупается}type waredata = record minprice: integer; distance: integer; strength: real; end; var base, client: waredata; begin base.minprice : = 4; base.distance : = 57; base.strength : = 0.25; read(client.minprice, client.distance, client.strength); if (client.minprice > = base.minprice) and (client.distance > = base.distance) and (client.strength < = base.strength) then writeln('берем') else writeln('не устраивает'); end.
Поделитесь своими знаниями, ответьте на вопрос: