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

Размеры шкафа A × B × C. Возможно ли его пронести через дверной проем размерами X × Y? Входные данные
Даны целые числа A, B, C, X, Y (1 ≤ A, B, C, X, Y ≤ 100)

Выходные данные
Программа должна напечатать строку "YES" , если пронести возможно, "NO" – если нельзя.

Примечание:
1) Примените предыдущую задачу, как вс . То есть выполните сначала упорядочивание значений и только потом сравнивайте. Конечно, возможны другие решения.
2) Если дверной проём совпадает с размерами шкафа, то считается, что шкаф пронести можно.

👇
Открыть все ответы
Ответ:
iuhagng
iuhagng
03.04.2021

Информáтика (фр. Informatique; англ. Computer science) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений[1].

Информатика включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных.

Темами исследований в информатике являются вопросы: что можно, а что нельзя реализовать в программах и базах данных (теория вычислимости и искусственный интеллект), каким образом можно решать специфические вычислительные и информационные задачи с максимальной эффективностью (теория сложности вычислений), в каком виде следует хранить и восстанавливать информацию специфического вида (структуры и базы данных), как программы и люди должны взаимодействовать друг с другом (пользовательский интерфейс и языки программирования и представление знаний) и т. п.

4,5(20 оценок)
Ответ:
привет948
привет948
03.04.2021
Program Bally; var a:array[1..250] of string; N,l,max,x,i,b,p:integer; z,k:string; begin max:=0; readln(N); for i:=1 to N do readln(a[i]); z:=a[1]; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); max:=max+x; for i:=2 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b>max then max:=b; end; for i:=1 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); p:=l; Delete(z,1,l); l:=Pos(' ',z); p:=p+l; Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b=max then begin z:=a[i]; delete(z,p,length(z)-p+1); writeln(z); end; end; end. Наверное так!!
4,6(12 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ