50 ! напишите две программы на pascal 1.вычислить площадь фигуры, использовав подпрограмму вычисления площади круг а r1=2, r2=3, r3=5 (см. рисунок) 2. два треугольника заданы координатами своих вершин. вычислить периметры треугольников, и определить какой треугольник имеет больший периметр. вычисление сторон треугольника и его периметра оформить подпрограммой.

Система счисления – это:

1. Представление чисел в экспоненциальной форме

представления чисел с заданного набоа специальных знаков (цифр)

представления десятичных чисел

представления двоичных чисел.

Как будет записано число 134 в римской системе счисления:

1. CXXXIV

2. CXXXVI

3. MXXXIV

4. CXXX

Какие числа испоьзуются для представления чисел в пятеричной системе счисления?

1. 1, 2, 3, 4, 5

2. 0, 1, 2, 3, 4, 5

3. 0, 1, 2, 3, 4

4. 0, 5

Сколько единиц в двоичной записи числа 7810 ?

1. 3

2. 2

3. 4

4. 5

Как представлено число 502 в шестнадцатеричной системе счисления?

1.1156

2. 1E6

3. 1F6

4. 2F6

Сколько раз встречается цифра 2 в записи первых 10 чисел (начиная с 1) в системе счисления с основанием 4?

1. 2

2. 3

3. 4

4. 6

Какое число в десятеричной системе счисления стоит между числами 22023

и 4С16?

1. 75

2. 73

3. 74

4. 76

Пароль к сейфу состоит из букв латинского алфавита, расположенных в порядке возрастания чисел, соответствующих этим буквам: А=101112, В=1114, С=358, D=1В16. Восстановите буквенный пароль.

Вводится натуральное число N (N ≤ 1000000). Затем вводятся N целых чисел, не превосходящих по абсолютному значению 2³¹. Найти количество чисел, которые заканчиваются на 5. Если такие числа есть, вывести максимальное из них.

Чтобы определить последнюю цифру числа, воспользуемся оператором взятия остатка от деления. Чтобы можно было смотреть последнюю цифру у отрицательных чисел, будем брать остаток по модулю.

Код (Pascal)

var

 i, n, k, max: longint;

 a: array[1..1000000] of longint;

begin

 read(n);

 max := -32767;

 k := 0;

 for i := 1 to n do

 begin

   read(a[i]);

   if abs(a[i] mod 10) = 5 then

   begin

     k := k + 1;

     if a[i] > max then max := a[i];

   end;

 end;

 write(k, ' ');

 if k <> 0 then write(max);

 writeln;

end.

По условию задачи можно обойтись и без хранения массива. Такой код вложен в решение.