1)Составьте программу, которая находит большее из двух введенных с клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9 var a,b : integer; begin write('Enter a: '); read(a); write('Enter b: '); read(b); if a>b then writeln(a) else writeln(b); end. 2) Составьте программу, которая находит меньшее из трёх введенных чисел a, b, c и выводит его на экран. Числа 10, 4 и 9 var a,b,c : integer; begin write('Enter a: '); read(a); write('Enter b: '); read(b); write('Enter c: '); read(c); if (a<b) and (b<c) then writeln(a); if (b<c) and (c<a) then writeln(b) else writeln(c); end. 3) Составьте программу определяющую, является ли введенное с клавиатуры целое число кратным 3. var a: integer; begin write('Enter a: '); read(a); if (a mod 3) = 0 then writeln('Кратно') else writeln('Не кратно'); end.
Крупнейшая в мире локальная сеть создана в Европейском Центре ядерных исследований. Она объединяет несколько тысяч компьютеров и работает с Большим адронным коллайдером. Внутри центра проложено 35000 километров оптического кабеля. Информация, которую дает коллайдер и другие ускорители, проходит обработку в детекторе и через локальный вычислительный центр поступает в главный центр хранения и обработки данных. Ежедневно компьютерам нужно принять, сохранить, обработать и распределить около одного петабайта данных. Количество ежегодно производимой информации, записанной на CD-диски, было бы равно двадцатикилометровой стопке.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
