<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
1)Назовите систему, в которой для записи любых чисел используется всего один символ?
В) Унарная;
2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется:
Г) PCI-шина.
3). Какой из тегов HTML рисует горизонтальную линию?
hr
4) Какой из перечисленных языков программирования относится к низкоуровневым?
Г) Assembler.
5)Файлы с расширением .cvs используют для хранения:
Г) Изображений.
6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд.
Пропорция 2000Кбайт / 30с * 12с = 800Кбайт
А) 800 Кбайт;
7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления.
А) 1111110;
8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки:
А) Гиперссылка;
<span>begin
s1:=copy(s,1,pos(' ',s)-1);{копируем первое слово до пробела}
for i:=pos(' ',s)+1 to length(s) do{смотрим строку дальше}
if (copy(s,i,length(s1))=s1){если набор символов совпадает с этим словом}
and(s[i-1]=' '){и перед ним пробел}
and((s[i+length(s1)]=' '){и за ним пробел}
or(i+length(s1)-1=length(s))) then{или это последнее слово}
begin
k:=1;{фиксируем совпадение}
s2:=s1;{запоминаем слово}
write('Одинаковые слова ',s2);{выводим на экран}
readln;
exit;{выходим из программы, нужно только 1 пару}
end;
delete(s,1,pos(' ',s));{удаляем первое слово, следующее первое}
end;
if k=0 then write('Нет двух одинаковых слов');
readln
end<span>.</span></span>
Для определения, является ли число положительным достаточно сравнить его с нолём. Число больше ноля - положительное, меньше ноля - отрицательное. Сам по себе ноль не является ни положительным, ни отрицательным числом, но т.к. на ход решения это не влияет, этой деталью можно пренебречь. Алгоритм:
1. Начало
2. Ввести числа а и b
3. Если число a > 0 то запомнить a = a * 10
иначе запомнить a = a * a
4. Если число b > 0 то запомнить b = b * 10
иначе запомнить b = b * b
5. Вывести числа a и b
6. Конец
Max = A
if B > Max then Max = B
if C > Max then Max = C
Или по-другому
if (A>B) and (A>C) then Max = A
if (B>A) and (B>C) then Max = B
if (C>B) and (C>A) then Max = C
