program abc;
var
i, j:integer;
pr:boolean;
begin
writeln('Простые числа в диапазоне от 1 до 100: ');
for i := 2 to 100 do
begin
pr := true;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
pr := false;
break;
end;
if pr then
write(i, ' ');
end;
writeln;
end.
Program da;
var a,b:integer;
begin
write('Введите а:');
readln(a);
write('Введите b:');
readln(b);
if (a>2) and (b<=3) then
writeln('Правда');
else
write('Ложь')
end.
Берем с точки (-5;7),чертим до точки (-3;11),теперь вниз до точки (-3;1).Векторы в точке (-5;7) и (-3,11).
Логическое выражение по этой схеме
Не((Не(А∨В)∧С)∧Д)=1, упростим выражение применяя теоремы Буля
(<span>А∨В)∧С</span>∨НеД=1
Подставив значения, получим при 0100 функцию=1
Максимальная длина строки в Паскале<span> — 255 символов</span>