// PascalABC.NET 3.0, сборка 1088
begin
var L1:=new List<integer>;
L1.AddRange(SeqRandom(15,-20,20));
Writeln('Список L1'); Writeln(L1);
var L2:=new List<integer>;
L2.AddRange(SeqRandom(10,-5,40));
Writeln('Список L2'); Writeln(L2);
var L:=new List<integer>;
L.AddRange(L1.Intersect(L2).Distinct);
Writeln('Список L'); Writeln(L);
end.
Тестовое решение:
Список L1
[8,7,-13,0,12,-1,3,5,-15,13,18,-10,16,14,-1]
Список L2
[31,37,25,13,2,14,5,8,10,34]
Список L
[8,5,13,14]
1.
var n,i,a,m:integer;
begin
m:=-1;
write ('Введите количество чисел в последовательности: ');
readln(n);
for i:=1 to n do
begin
write ('Введите число (больше -1): ');
readln(a);
if (a mod 4 = 0) and (a>m) then m:=a
end;
write('Максимальное число, кратное 4, равно ',m);
end.
2.
var n,i,a,k:integer;
begin
write ('Введите количество чисел в последовательности: ');
readln(n);
for i:=1 to n do
begin
write ('Введите число: ');
readln(a);
if a mod 4 = 0 then k:=k+1
end;
write('Количество чисел, кратных 4, равно ',k);
end.
3.
var n,i,a,s:integer;
begin
write ('Введите количество чисел в последовательности: ');
readln(n);
for i:=1 to n do
begin
write ('Введите число: ');
readln(a);
if a mod 10 = 4 then s:=s+a
end;
write('Сумма чисел, оканчивающихся на 4, равна ',s);
end.
A- 1
Б- 1
Г- 1
Е-1
В- А+Б+Г=3
Д- Б+В=4
К- Д+В+Г+Е=3+4+1+1=9
Ответ: 9
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Натюрморт';
Println(s[6:8]+s[9]+s[7:9],s[9]+s[7:])
end.
<u>Результат</u>
мотор торт