Примеры умозаключения:
1. Эверест - гора, Белуха - гора, значит они Эверест и Белуха - горы.
2. Дима- мужское имя, Сергей - мужское имя, значит Дима и Сергей - мужские имена.
Ну и сложный пример:
3.Одно кодовое слово, не может быть началом второго кодового слова.
===== PascalABC.NET =====
begin
var s := 0.0;
for var j := 1 to 3 do
begin
var p := 1.0;
for var i := 1 to 3 do
p *= 2 ** (i + j) / (i * i + j * j * j);
s += p
end;
Println(s)
end.
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
Ответ:
14638(десячичная система) -
пронумеруем разряды
4 3 2 1 0
1 4 6 4 8
теперь запишем выражение
14638(десячичная система) = 1 х 10^4 + 4 х 10^3 + 6 x 10^2 + 4 x 10^1 + 8 x 10^0
Объяснение:
Var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX