Срочно надо помогите плиз)

1. Известен периметр квадрата. Найти его диагональ.
2. Известна площадь квадрата. Найти его периметр.

сколько бит информации содержит сообщение объемом 2 Кбайт? в ответе укажите одно число.

число отрицательное, то выведите сообщение, что значение у не существует.

1) Несуществующий тип шин:
1. адресная
2. данных
3. управления
4. аварийная
2) Надежность ЭВМ измеряется
1. ремонтопригодностью ЭВМ
2. количеством отказавших деталей
3. внутренней частотой микропроцессора
4. средним временем наработки на отказ
3)Чтобы преобразовать заголовок в подзаголовок с помощью панели "Структура" необходимо выполнить команду:
1. вверх
2. вниз
3.понизить уровень
4. повысить уровень
4) Арифметико-логическое устройство предназначено для
1. кратковременного хранения, записи и выдачи информации
2. связи между процессором и основной памятью
3. выполнения всех арифметических и логических операций над числовой и символьной информацией
4. формирования и подачи во все блоки ЭВМ в нужные моменты времени определенных сигналов управления
5) НЕ является служебной программа...
1. Архивация данных
2. Назначенные задания
3. Дефрагментация диска
4. Файловый менеджер
6) Формула это:
1. адреса ячеек и знаки арифметических операций
2. буквы и цифры, обозначающие адреса ячеек и знаки арифметических операций
3. набор стандартных констант
4. связь между исходными и рассчитываемыми данными
7) Расстояние между парами шрифтов называется:
1. кернинг
2. трекинг
3. кегль
4. интерлиньяж
8) Память, предназначенная только для чтения:
1. кэш
2. оперативная
3. постоянная
4. регистровая
9) результатом перевода десятичного числа 7(10) в двоичную систему счисления является число
1. 111(2)
2. 11(2)
3. 1000(2)
4. 110(2)
10) периферийные устройства выполняют функцию...
1. ввод и выдачу информации
2. управляет работой ЭВМ по заданной программе
3. хранение информации
4. обработку информацию

типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!