1) БРА --> РА --> СБ --> САБ --> ТБВ.
Ответ: ТБВ.
2) ГРОТ --> ГГРОТ --> ДДСПУ --> КДДСПУ --> ЛЕЕТРФ
Ответ: ЛЕЕТРФ
3) 28МАЯ --> 28АЯ --> 39АЯ --> 139АЯ --> 240АЯ
Ответ: 240АЯ
4)
HCA AEA DAH ECC EEH ADE CEA AED EHA
HCA AEA DAH ECC EEH ADE CEA AED
HCA AEA DAH EEH CEA
HCA DAH EEH CEA
Ответ: 4.
Задание №1
//Pascal
const n = 5;
var a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
//Заполним для теста массив сл. числами, заодно посчитаем сумму
//положительных
for i:=1 to n do begin
a[i]:=random(101)-50;
if a[i]>0 then s:=s+a[i];
end;
writeln('Сумма положительных ',s);
end.
Задание №5
//Pascal
const n = 100;
var a:array[1..n] of integer;
i,m,min:integer;
begin
write('Введите количество элементов ');
read(m);
min:=999999;
for i:=1 to m do begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
writeln('Минимальный элемент ',min);
end.
Задание №6
//Pascal
const n = 5;
var a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
//Заполним для теста массив сл. числами, заодно посчитаем сумму
//количество четных
for i:=1 to n do begin
a[i]:=random(101)-50;
if a[i] mod 2 = 0 then s:=s+1;
end;
writeln('Количество четных ',s);
end.
Задание №7
//Pascal
const n = 10;
var a:array[1..n] of integer;
i,c,s,k :integer;
begin
s:=0;k:=0;
write('Введите число с ');
read(c);
for i:=1 to n do begin
readln(a[i]);
if a[i]>c then begin
s:=s+a[i];
k:=k+1;
end;
end;
if k<>0 then writeln('Среденее арифметическое больших с ',s/k)
else writeln('Таких чисел нет');
end.
Задание №8
//Pascal
const n = 10;
var a:array[1..n] of integer;
i,s,k :integer;
begin
s:=0;k:=0;
for i:=1 to n do begin
readln(a[i]);
if i mod 2<>0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln('Среденее арифметическое с нечетными номерами ',s/k)
end.
Задание №9
//Pascal
const n = 10;
var a,b:array[1..n] of integer;
i,s,k :integer;
begin
s:=0;k:=0;
for i:=1 to n do begin
readln(a[i]);
if a[i]>0 then begin
k:=k+1;
b[k]:=a[i];
end;
end;
//Для проверки выведем массив b
if k>0 then
for i:=1 to k do write(b[i],' ')
else writeln('Положительных в массиве a не оказалось');
end.
Алгоритм простой, нам нужно как-то обсчитать расстояние точек друг от друга. Делается это формулой sqrt((x1-x2)^2 + (y1-y2)^2).
Потом мы в цикле сравниваем по 2 точки и ищем максимальное расстояние.
a, b = map(int, input().split())
answer = []
for i in range(a, b):
num = str(i)
length = len(num)
sum = 0
for y in num:
sum += int(y)**length
if sum == int(i):
answer.append(str(i))
if len(answer) == 0:
answer.append('-1')
print(' '.join(answer))
Const
K = 13;
Var
A:array[1..K] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
S:=0;
i:=0;
Repeat
i:=i+1;
if A[i]>0 then
Repeat
S:=S+A[i];
i:=i+1
Until i>K;
Until i>=K;
WriteLn;
WriteLn('S = ',S);
End.