М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
pinsker025
pinsker025
17.08.2021 00:13 •  Информатика

Нужна по программированию. нужна пятёрка и я получу за четверть пять, . напишите программу в паскале. имеется одна коробка со сторонами а б с(вводятся с клавиатуры), ещё есть 1 коробка со сторонами x z t(вводятся с клавиатуры). надо ответить влезит ли первая коробка во вторую если коробки можно вращать.

👇
Ответ:
1234567890ваня
1234567890ваня
17.08.2021
Var a,b,c,x,z,t,k: integer;
begin
  write('a b c через пробел:  ');  readln(a,b,c);
  write('x z t через пробел:  ');  readln(x,z,t);
  if a>b then swap(a,b);
  if b>c then swap(b,c);
  if b<a then swap(a,b);
  if x>z then swap(x,z);
  if z>t then swap(z,t);
  if z<x then swap(x,z);  
  k:=0;
  if a>=x then 
     if (b>=z) and (c>=t) then k:=1;
  if (a<=x) then
     if (b<=z) and (c<=t) then k:=1;
  if k=1 then writeln('да')
  else writeln('нет');
end.

a b c через пробел:  10 7 3
x z t через пробел:  3 5 9
да

a b c через пробел:  8 5 7
x z t через пробел:  9 7 4
нет
4,5(37 оценок)
Открыть все ответы
Ответ:
sevasik12
sevasik12
17.08.2021
Символ-это набор команд состоящих из единиц и нулей,любое слово вводимое тобой или выведонное тебе состоит из этих последовательностей. Например символ I (Я) зашифрован так 0100 1001 <-- 8 этих битов образуют 1 символ,называемым байтом,поэтому любой текст,изображение,видео(там немного другая схема действует),все это всего лишь грандиозный набор команд,разговоры по телефону тоже кодируются из вибрации в набор импульсов и на обратном выходе опять преобразуются в нам всем привычные слова.Любые механизмы,и даже мы с Вами можем передавать информацию,в том числе Азбукой Морзе,даже несколько последовательно сформулированных щелчков пальцев несут в себе информацию,главное ее понять,расшифровать и преобразовать,в видео,аудио,текст,фотографию.
4,5(18 оценок)
Ответ:
yra221111
yra221111
17.08.2021
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  var a:=MatrixRandom(n,n,10,99);
  var s:=0;
  var k:=0;
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Print(a[i,j]);
    Writeln;
    if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end;
    end;
  if k>0 then Writeln('S=',s/k:0:2)
  else Writeln('На главной диагонали нет четных элементов')
end.

Тестовое решение
n= 8
63 13 33 90 25 21 87 91
88 88 48 13 30 59 81 27
73 23 76 77 52 19 33 97
53 87 13 74 17 35 61 70
77 96 51 61 82 33 63 22
39 88 84 54 88 73 74 69
76 26 69 14 45 80 70 54
80 36 47 38 18 22 84 62
S=75.33
4,5(90 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ