3. Який оператор реалізує дію: Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку? варіанти відповідей K := (A < B) And (B < C); K := (A < B) Or (B < C); If (A < B) And (B < C) Then K := True Else K := False; If (A < B< C) Then K := True Else K := False;
A+D,B+E,C+F из которых состоит итоговое число. и смотрим по пункту 3 у нас C+F - это две позиции справа , и нас интересуют 4 позиции слева в итоговом числе.
из пункта 2 условие если B+E < A+D то первые две позиции будут "A+D", а 3 и 4 слева - "B+E" , иначе первые две - "B+E", а 3 и 4 - "A+D", тоись, число полученное из первых двух позиций слева должно быть больше числа , полученного из 3 и 4 позиций слева. И смотрим на каждый вариант:
1) 141215
14> 12 - подходит
2) 121514
12< 15 - не подходит
3) 141519
14<15 - не подходит
4)112112
11<21 - не подходит
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
if a>b then Swap(a,b); // если перепутали границы
var x:=a;
while x<=b+h/2 do begin
Write(x:10:5);
var y:=Ln(x)/Tan(x);
if real.IsNaN(y) or real.IsInfinity(y) then
Writeln(' значение не существует')
else Writeln(y:15:5);
x+=h
end
end.
Примеры
Введите границы и шаг табуляции: -5 5 1
-5.00000 значение не существует
-4.00000 значение не существует
-3.00000 значение не существует
-2.00000 значение не существует
-1.00000 значение не существует
0.00000 значение не существует
1.00000 0.00000
2.00000 -0.31722
3.00000 -7.70704
4.00000 1.19733
5.00000 -0.47609
Введите границы и шаг табуляции: -1 1 0.2
-1.00000 значение не существует
-0.80000 значение не существует
-0.60000 значение не существует
-0.40000 значение не существует
-0.20000 значение не существует
0.00000 значение не существует
0.20000 -7.93961
0.40000 -2.16723
0.60000 -0.74667
0.80000 -0.21672
1.00000 0.00000