ModerBlet
21.03.2020 07:11

Boolean составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: 1) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр; 2) с�мма цифр данного трехзначного числа n является четным числом; 3) точка с координатами (х, у) принадлежит части плоскости, лежащей между прямыми x = m, x = n (m < n); 4) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа; 5) целое число n является четным двузначным числом; 6) треугольник со сторонами а, b, c является равносторонним; 7) треугольник со сторонами а, b, c является равнобедренным; 8) среди чисел a, b, c есть хотя бы одна пара взаимно противоположных чисел; 9) числа c и b выражают длины катетов одного прямоугольного треугольника, а c и d – другого. эти треугольники являются подобными; 10) даны три стороны одного и три стороны другого треугольника. эти треугольники равновеликие, т.е. имеют равные площади; 11) данная тройка натуральных чисел a, b, c является тройкой пифагора, т.е. c2 = a2 + b2; 12) все цифры данного четырехзначного числа n различны; 13) данные числа x, y являются координатами точки, лежащей в первой координатной четверти; 14) (х1, у1) и (х2, у2) – координаты левой верхней и правой нижней вершин прямоугольника; точка а(х, у) лежит внутри этого прямоугольника или на одной из его сторон; 15) число с является средним арифметическим чисел a и b; 16) натуральное число n является точным квадратом; 17) цифры данного четырехзначного числа n образуют строго возрастающую последовательность; 18) цифры данного трехзначного числа n являются членами арифметической прогрессии; 19) цифры данного трехзначного числа n являются членами прогрессии; 20) данные числа c и d являются соответственно квадратом и кубом числа а; 21) цифра м входит в десятичную запись четырехзначного числа n; 22) данное четырехзначное число читается одинаково слева направо и справа налево; 23) сумма двух натуральных чисел кратна 2; 24) произведение натуральных чисел a и b кратно числу с; 25) сумма двух действительных чисел a и b является целым числом, т.е. дробная часть суммы равна нулю; 26) данное натуральное число а кратно числу b, но не кратно числу с.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
муксик
01.02.2022 22:32
Var
  i,n,k:integer;
  p:longint;
  f,ff:boolean;
begin
  Write('Введите количество чисел -> '); Readln(n);
  Writeln('Тeперь вводите сами числа');
  p:=1; f:=false; ff:=false;
  for i:=1 to n do
  begin
    Read(k);
    f:=((k<0) and ((k mod 2)<>0));
    ff:=(ff or f);
    if f then p:=p*k
  end;
  if ff then Writeln('Произведение нечетных отрицательных чисел: ',p)
  else Writeln('Не было введено ни одного отрицательного нечетного числа')
end.

Тестовое решение:
Введите количество чисел -> 10
Тeперь вводите сами числа
5 -7 16 0 -3 4 -6 2 1 8
Произведение нечетных отрицательных чисел: 21
0,0(0 оценок)
Ответ:
Margo231
22.01.2022 15:27
Var
  a,b,c,d,x,y:real;
begin
  Write('Введите размеры сторон сундука -> '); Readln(a,b,c);
  Write('Введите диаметр иллюминатора -> '); Readln(d);
  if a<b then begin
    x:=a;
    if b<c then y:=b else y:=c
  end
  else begin
    x:=b;
    if a<c then y:=a else y:=c
  end;
  if (sqr(x)+sqr(y)<sqr(d)) then Writeln('Сундук можно вытащить')
  else Writeln('Сундук нельзя вытащить')
end.

Тестовое решение:
Введите размеры сторон сундука -> 3 5 3.99
Введите диаметр иллюминатора -> 5
Сундук можно вытащить

**********************
Условие попадания точки A(x,y) внутрь треугольника описывается как
\begin {cases} x\ge 0 \\ y\ge 0 \\ y\le 5-x \end {cases} \Rightarrow \ (x\ge0) \land (y\ge0) \land (y\le 5-x)

var
  x,y:real;
begin
  Write('Введите координаты x и y точки -> '); Readln(x,y);
  if (x>=0) and (y>=0) and (y<=5-x) then Writeln('Да')
  else Writeln('Нет')
end.

Тестовое решение:
Введите координаты x и y точки -> 3 2.5
Нет

Введите координаты x и y точки -> 2.1 2.8
Да
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота