На числовой прямой даны два отрезка: p=[10,30] и q=[20,40]. выберите такой отрезок a, что формула (x∈a)→((x∈p)≡(x∈q)) тождественно истинна, то есть принимает значение 1 при любом значении переменной х. 1) 11,19 2) 21,29 3) 31,39 4) 9,41
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var fam:=ReadlnString('Фамилия:'); var nam:=ReadlnString('имя:'); var otch:=ReadlnString('отчество:'); var fio:=fam+' '+nam+' '+otch; Writeln(fio,', длина текста- ',fio.Length) end.
Тестовое решение Фамилия: Иванов имя: Сергей отчество: Петрович Иванов Сергей Петрович, длина текста- 22
Задание 3)
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var w:='ИНТЕГРАЛ'; Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]); Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]); Writeln(w[3]+w[1]+w[5:7]); Writeln(w[7]+w[5:3:-1]+w[2:4]); Writeln(w[6:]+w[8]+w[1]); Writeln(w[1]+w[5:8]); Writeln(w[2::-1]+w[3]+w[6:8]+w[3]) end.
Решение: ГАНТЕЛИ РЕНТГЕН ТИГР АГЕНТ РАЛЛИ ИГРА НИТРАТ
В C++ работает этот код. Других языков практически не знаю. #include <iostream> int main() { using namespace std; const int n = 8; double Arr[n] = { 122.3, 11.4, -34.2, 17.8, -25.5, -54, 34, -43};
for (int i = 0; i < n; ++i) cout << Arr[i] << " "; cout << endl;
double max, min; for (int i = 0; i < n; ++i) { if (Arr[i] < 0) { int inegmax = i; for (int j = i; j < n; ++j) if (Arr[j] < 0) if (Arr[j] >= Arr[inegmax]) inegmax = j;
max = Arr[inegmax]; Arr[inegmax] = Arr[i]; Arr[i] = max; } else { int iposmin = i; for (int j = i; j < n; ++j) if (Arr[j] >= 0) if (Arr[j] < Arr[iposmin]) iposmin = j;
