1) program fagasg; var a,b,c,d: integer; begin Writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); Writeln('Введите третье число'); readln(c); d:=0; If a>0 then d:=d+1; If b>0 then d:=d+1; If c>0 then d:=d+1; Writeln('Количество положительных чисел:',d); end. 2) program gsggdfd; var n,s,i: integer; begin writeln('Введите n'); readln(n); s:=0; For i:=1 to n do S:=s+i; Writeln('Сумма последовательности равна:',s); end. 3)Program afsdgf; var A: Array[1..100] of integer; i,h,s,l: integer; begin Writeln('ведите размер массива'); readln(h); s:=1; l:=1; For i:=1 to h do begin A[i]:=s+l; s:=s+2; writeln(A[i]); l:=A[i]; end; end.
Var x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer; begin read(x1,y1,x2,y2,x,y); x3:=x1; y3:=y2; x4:=x2; y4:=y1; if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else if (x<x1) and (y>y3) then writeln('NW') else if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else if (x>x2) and (y>y3) then writeln('NE') else if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else if (x>x2) and (y<y4) then writeln('SE') else if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else if (x<x1) and (y<y1) then writeln('SW'); end.
ответ: на картинке 100%
Объяснение:
Сама проверила