Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO
Умозаключение - это вывод, основанный на рассуждении
как я помню, то таблица истинности, это та таблица, показывающаю верное и неверное умозаключение, есть несколько видов этих таблиц:
1)Конъюнкция
2)Дизъюнкция
3)Импликация
4)Эквиваленция
и так далее, это если по учебнику 9 класса
в интернете введи эти таблицы и зайди на вики педию, там есть эти таблицы, посмотри
Во вложении файл формата Excel 2003. Макрос находится в проекте для листа 1
Var
x:real;
Begin
x:=-5;
repeat
writeln('y = ',sqr(x));
x:=x+0.5;
until(x>5)
End.
var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.