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 картинка
var i: integer;
begin
for i:=45 to 180 do if(i mod 8=0) then writeln(i);
end.