ЭминГаджиев
05.07.2022 08:26

1)Выражение на языке Паскаль: sqrt(sqr(x)−7∗x+11).

Данное выражение на математическом языке:

√x2−7x+11

(x3−7x+11)2(степени)

√5x2−7x+11

∣∣x2−7x+11∣∣

2)Дано логическое выражение: (a>10)and(a<48) .
Такое логическое выражение возвращает истину, лишь в том случае, когда истинны оба выражения, т.е., (выбери несколько вариантов ответа)

если a входит в диапазон от 10 до 48
10<a<48
если a равно 10, но меньше 48
если a меньше 10

3)Запусти Паскаль и введи программу:

var
a,b,c:integer;
begin
a:=−10;
b:=abs(a);
writeln('abs(−10)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.

При запуске программы вывод на экран:
abs(−10)=
sqr(b)=
sqr(b+b)=

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
diduh2002
25.02.2022 16:22
1)
#include <iostream>
#include <math.h>

using namespace std;

int main() {
 int a;
 cin >> a;
 int d = a%10;
 string s = "yes";
 while(abs(a) > 0) {
   if(a%10 != d) {
     s = "no";
     break;
   }
   a/=10;
  }
  cout << s << endl;
}
2)
#include <iostream>
#include <math.h>

using namespace std;

int main() {
 int a;
 cin >> a;
 int d = a%10;
 a/=10;
 string s = "no";
 while(abs(a) > 0) {
  if(a%10 == d) {
    s = "yes";
    break;
  }
  d = a%10;
  a/=10;
  }
  cout << s << endl;
}
0,0(0 оценок)
Ответ:
jessicagallagher
25.02.2022 16:22
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := Abs(ReadInteger('Введите целое число:'));

 var yes := False;

 var n1 := n mod 10;

 n := n div 10;

 while n > 0 do

 begin

   var n2 := n mod 10;

   if n1 = n2 then

   begin

     yes := True;

     break

   end;

   n := n div 10;

   n1 := n2

 end;

 if yes then Print('Верно')

 else Print('Неверно')

end.


А еще это можно решить, к примеру, так:

begin

 var s := Abs(ReadInteger('Введите целое число:')).ToString;

 if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

 else Print('Неверно')

end.

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