Сколько существует различных наборов значений логических переменных x1, x2, ... x9, y1, y2, ... y9, которые удовлетворяют всем перечисленным ниже условиям?
uses crt; var n,s,i:integer; begin clrscr; write('n='); readln(n); s:=0; for i:=1 to n do s:=s+sqr(i); write('s=',s); end.
2)
uses crt; var a:array [1..100] of real; n,i,p,o,l:integer; begin clrscr; write('n='); readln(n); write('a[n]:'); for i:=1 to n do begin readln(a[n]); if a[n]>0 then p:=p+1; if a[n]<0 then o:=o+1; if a[n]=0 then l:=l+1; end; writeln(l,p,o); end.
3)
uses crt; var a:array [1..100] of real; i,n:integer; begin clrscr; write('n='); readln(n); write('a[n]:'); for i:=1 to n do read(a[i]); for i:=1 to n do if (a[i]=0) then writeln('YES') else writeln('NO'); end.
Буду по порядку добавлять.
1)
uses crt;
var n,s,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
end.
2)
uses crt;
var a:array [1..100] of real;
n,i,p,o,l:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
begin
readln(a[n]);
if a[n]>0 then p:=p+1;
if a[n]<0 then o:=o+1;
if a[n]=0 then l:=l+1;
end;
writeln(l,p,o);
end.
3)
uses crt;
var a:array [1..100] of real; i,n:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]=0) then writeln('YES')
else writeln('NO');
end.
program pr;
uses crt, graphABC;
var driver,
mode :integer;
begin
setwindowwidth(1024);
setwindowheight(600);
setpencolor(clBlack);
rectangle(100,100,400,400);
rectangle(150,150,200,300);
rectangle(300,150,350,300);
rectangle(375,99,340,10);
line(100,100,250,10);
line(250,10,400,100);
circle(600,50,50);
floodfill(600,50,clBlue);
circle(250,65,30);
floodfill(250,65,clRed);
setpencolor(clblue);
rectangle(225,150,275,300);
line(250,150,250,300);
line(175,150,175,300);
line(325,150,325,300);
setpencolor(clred);
circle(600,300,25);
circle(575,340,25);
circle(625,340,25);
circle(550,380,25);
circle(600,380,25);
circle(650,380,25);
end.
Незнаю подойдет рисунок или нет но делал сам