Условия корявые 1 условие (2<=x<=3 and 0<=y<=1) 2 условие (-1<=x<=1 and -1<=y<=1) изображение блок-схемы верное. паскаль: var x,y:integer; if((x>=2 and x<=3) and (y>=0 and y<=1)) writeln("да"); else if((x>=-1 and x<=1) and (y>=-1 and y<=1) writeln("да"); else writeln("нет");
Держи ))) удачи ))) var x, y, d: real; begin read(x,y); d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат} if d <= 1 then writeln('Входит в Д1') else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then writeln('Входит в Д2') else writeln('Не входит'); end.
Var max,min,i,s:integer; mas:array[1..25] of integer; begin randomize; write('Введите диапазон: '); readln(max,min); if(min>max) then begin max:=max+min; min:=max-min; max:=max-min; end; for i:=1 to 25 do mas[i] := min + random(max-min+1); for i:=1 to 25 do begin write(i,'-ый элемент: ',mas[i]); if((mas[i] mod 5) = 2) then begin s:=s+1; writeln('+'); end else writeln(); end; write('Сумма элементов, которые при делении на 5 дают остаток 2: ',s); end.
Var x,y,z:array [1..10] of integer; i,n:integer; begin writeln('введите n'); readln(n); writeln('введите массив x'); for i:=1 to n do readln(x[i]); writeln('введите массив y'); for i:=1 to n do readln(y[i]); for i:=1 to n do z[i]:=x[i]*y[i]; writeln('Массив x: '); for i:=1 to n do write(x[i],' '); writeln; writeln('Массив y: '); for i:=1 to n do write(y[i],' '); writeln; writeln('Массив z: '); for i:=1 to n do write(z[i],' '); writeln; end.