Сначала
2х2 равно 4, следовательно, А истинно. Обозначим истинное, как 1.
2х2 не равно 5, следовательно, В ложно. Обозначим ложное, как 0.
Тогда:
not(A and B) = not(1 and 0) = not 0 = 1, т.е. высказывание истинно.
A or not B = 1 or not 0 = 1 or 1 = 1, т.е. высказывание истинно.
Блок-схема - в прилагаемом файле.
Программа:
var n,r,a,b,k,x,y,i:integer;
begin
readln(n,r,a,b);
k:=0;
for i:=1 to n do
begin
readln(x,y);
if sqr(x-a)+sqr(y-b)<r*r then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
3 4 1 1
2 2
-2 -3
0 0
k = 2
Var a: integer;
var d: real;
begin
write('Введите дюймы: ');
readln(a);
d:=a*2.54;
writeln(a,'(дюйм) = ',d,' (см)');
end.
Var
a:integer;
begin
read(a);
writeln(a div 10,' ',a mod 10);
end<span>.</span>
Var
start,finish, x, a, b, c,dx:real;
begin
Write('x, a,b,c =');
Readln(x, a, b, c);
Writeln('Xнач, Xконе, dX =');
Readln(start, finish, dx);
if (x<3)and(b<>0) then
begin
while (start < finish)do
begin
x:= start;
Writeln('F = ', a*x*x - b*x + c);
start:= start +dx;
end;
end
else if (x>3)and(b<>0) then
begin
while (start < finish)do
begin
x:= start;
if x-c = 0 then writeln('No solution') else
Writeln('F = ', (x-a)/(x-c));
start:= start + dx;
end;
end
else
begin
while (start < finish)do
begin
x:= start;
if c = 0 then writeln('No solution') else
Writeln('F = ', x/c);
start:= start +dx;
end;
end
end.
