Абвгдеёжзийклмнопрстуфхцчшщъыьэюя
1 шаг - 20101416226112 шаг - 11622614101023 шаг - йефемииб
Чаще всего встречаются буквы "е" и "и"
Номер буквы "е" - 6
<span>эскёйп
</span><span>энтер
</span><span>шифт
</span><span>капс лок
</span><span>контрл
</span><span>альт
</span><span>бэк спэйс
</span><span>делит
</span><span>инсэрт
</span><span>хоум
</span><span>энд
</span><span>пейдж aп
</span><span>пейдж даун</span>
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var (s,v):=ReadReal2('s,v->');
Println('Сумма после ок. срока=',Range(ReadInteger('a->'),ReadInteger('b->')).Aggregate(real(0),(i,j)->s+i+(i*v/100)));
end.
Пример:
s,v-> 100 25
a-> 10
b-> 20
Сумма после ок. срока=4256.613
</span>
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
Само собой, числа a1..an надо поместить в массив. Если его упорядочить по возрастанию (или убыванию), то элементы с одинаковыми значениями окажутся рядом и их легко будет пропустить.
var
a:array[1..n] of integer;
i,j,t:integer;
begin
{ инициализация массива }
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
end;
Writeln;
{ сортировка по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
{ вывод неповторяющихся значений }
Writeln('Уникальные значения элементов');
t:=a[1]; Write(t:3);
for i:=2 to n do
if a[i]<>t then begin t:=a[i]; Write(t:3) end;
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
9 6 1 6 1 4 5 9 1 2 6 7 7 6 1 7 7 8 0 8
Уникальные значения элементов
0 1 2 4 5 6 7 8 9
