flash64
30.09.2021 02:01

Установите соответствие между оператором и значением d после его выполнения *

d:=round (5.5) d:=int (5.5) d:=frac (5.5) d:=sqrt (5.5) d:=sqr (5.5)
1) 0.5
2) 5
3) 6
4) 30.25
5) 2.34520787991171
1) 0.5
2) 5
3) 6
4) 30.25
5) 2.34520787991171
При какой функции можно преобразовать значение вещественного типа в целочисленное? *

1) sqr
2) round
3) frac
4) int
Какие из указанных, неявных преобразований возможны в программах на языке Паскаль? Выберите несколько из 4 вариантов ответа: *

1) Из byte в real
2) Из byte в integer
3) Из real в integer
4) Из integer в byte

Какие из указанных операций и функций являются общими для всех числовых типов? Выберите несколько из 4 вариантов ответа *

1) Вычитание
2) Сложение
3) Округление
4) Выделение целой части
Каков будет результат выполнения программы представленной на рисунке? *

Подпись отсутствует
1) Ошибка преобразования типов
2) Вывод: 56250
3) Вывод: 5625
4) Вывод: 90
Как сгенерировать случайное целое число на промежутке от 3 до 100, включая концы? *

1) 3+random (98)
2) random (100)-3
3) 3+random (97)
4) random (103)-6
Как называется алгоритм, в котором присутствует только алгоритмическая конструкция "следование"? *

1) Линейный
2) Циклический
3) Разветвляющийся
4) Вс Из указанных операций и функций выберите определённые только для целочисленных типов? Выберите несколько из 4 вариантов ответа: *

1) frac
2) int
3) random (a)
4) div
Какое значение будет иметь a после выполнения оператора a:=int (20.75)? *

1) 21
2) 21.75
3) 20
4) 0.75
Какое значение будет иметь t после выполнения оператора t:=274 mod 4? *

1) 2
2) 4
3) 68
4) 0

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
daniilkornev05
11.04.2022 13:09
1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r
0,0(0 оценок)
Ответ:
KarinaDelacour
02.07.2020 18:41
Появившиеся в последней четверти ХХ века нанотехнологии стремительно развиваются. Едва ли не каждый месяц появляются сообщения о новых проектах, казавшихся еще год-другой назад абсолютной фантастикой. По определению, данному пионером этого направления Эриком Дрекслером, нанотехнология - "ожидаемая технология производства, ориентированная на дешевое получение устройств и веществ с заранее заданной атомарной структурой". Это значит, что она оперирует с отдельными атомами для того, чтобы получить структуры с атомарной точностью. В этом коренное отличие нанотехнологий от современных "объемных" bulk-технологий, которые манипулируют макрообъектами.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота