var a:array[1..N] of integer;
s,K:integer;
begin
readln(K);
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if (a[i] mod K=0) then s:=s+a[i];
write(s);
end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.
<u><em>Тестовое решение</em></u>
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)
запах это точно ....................................................................................................................................................................................................
Ответ:
Отяаьщшърь беняй, ш фцхый эюьхтпнщ.
Яэьгпнацщяш, сн эьхсыь. Тьа ьы, эюцпнщ!
Эьщбхынчшн - ъыцщ ятош ъбсютдьъ
Ц хныьяецпь фснщ ынрюс ц эьгпнщ
ьяанщйыиг ътеанщ хняьоьл птяац,
Н ьыу ътыш янъц яоцщц я эбац.
(это только часть стиха)
Объяснение:
А=Н Б=О это не сложно но долго. После составления ключ-таблицы мы шифруем стих
С помошью <em>шифрования</em><em> </em><u>можно</u><u> </u><u>огроничить</u><u> </u><u>доступ</u><u> </u><u>постороним</u><u> </u><u>лицам</u><u> </u><u>и</u><u> </u><u>не</u><u> </u><u>кто</u><u> </u><u>не</u><u> </u><u>узнает</u><u> </u><u>содержания</u>