1.для какого из имён ложно высказывание: не(первая буква гласная) или (последняя буква гласная)? 1) анна 2) максим 3) татьяна 4) егор 2.для какого из имён истинно высказывание: не((первая буква согласная) или (последняя буква 1) иван 2) семён 3) никита 4) михаил 3.для какого из указанных значений числа x истинно высказывание: (x < 3) и не (x < 2)? 1) 1 2) 2 3) 3 4) 4 4.для какого из имён ложно высказывание: (третья буква гласная) или не (последняя буква гласная)? 1) елена 2) татьяна 3) максим 4) станислав 5. для какого из имён истинно высказывание: не (третья буква гласная) и (последняя буква согласная)? 1) иван 2) ксения 3) марина 4) матвей для какой из перечисленных ниже фамилий писателей и поэтов истинно высказывание: не (количество гласных букв нечётно) и не (первая буква согласная)? 1) есенин 2) одоевский 3) толстой 4) фет 6.для какой из перечисленных ниже фамилий писателей и поэтов истинно высказывание: не (количество гласных букв чётно) и не (первая буква согласная)? 1) есенин 2) одоевский 3) толстой 4) фет 7. для какого из чисел истинно высказывание: не (число < 20) и (число чётное)? 1) 8 2) 15 3) 21 4) 36 8.для какого из данных слов истинно высказывание: (оканчивается на мягкий знак) и не (количество букв чётное)? 1) сентябрь 2) август 3) декабрь 4) май ответьте ))
Ответы
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
if n<0 then Writeln(n,'! не определено: n<0')
else
if n=0 then Writeln('0!=1')
else begin
var p:BigInteger:=1;
for var i:=2 to n do p*=i;
Writeln(n,'!=',p)
end
end.
Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000
begin
var n:=ReadInteger('n=');
if n<0 then Writeln(n,'! не определено: n<0')
else
if n=0 then Writeln('0!=1')
else begin
var p:BigInteger:=1;
for var i:=2 to n do p*=i;
Writeln(n,'!=',p)
end
end.
Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Если сообщение уменьшает неопределенность знаний в 4 раза, то сколько информации оно содержит?
Автор: Нозадзе_Новиков392
Вчём ошибка? встречен конец файла, а ожидалось ‘; ’ паскаль
Автор: Valeria123864531
Дам 10 потому что легкотняя тупая) напишите поговорки и пословицы о школе Заранее
Автор: Natella-874535
Как зделать ети две ? код мова програмування object pascal в delphi 7 100 !
Автор: Смирнов-Оськина
Вывести из строки гласные буквы и их кол-во на языке pascal, прошу !
Автор: Khlustikova_Borisovna
2. Всё стоит в отрицании (НЕ), если отрицание истинно, значит, его аргумент ложен, Первая буква согласная ИЛИ Последняя буква гласная ложно. Всё аналогично первому, ответ Иван (1).
3. (X < 3) И НЕ (X < 2) = (X < 3) И (X >= 2) = (2 <= X < 3). Это неравенство выполнено для 2 (2).
4. Должно быть неверно, что третья буква гласная и неверно, что НЕ(последняя буква гласная), т.е. третья буква согласная, а последняя гласная. ответ Татьяна (2).
5. Конъюнкция (логическое И) истинно, если все операнды истинны, в данном случае НЕ(третья буква гласная)=(третья буква согласная) и (последняя буква согласная). Подходит Матвей (4).
6. Должны выполняться НЕ(количество гласных нечетно) и НЕ(первая буква согласная), т.е. кол-во гласных чётно и первая буква гласная. ответ Одоевский (2).
7. Опять конъюнкция, истинны оба операнда: НЕ(число < 20) = (число >= 20) и (число чётное). Среди вариантов есть только одно чётное число, не меньшее 20, это 36 (4).
8. Нужно слово, оканчивающееся на мягкий знак и состоящее из нечётного числа букв, это декабрь (3).