// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var s:=ReadlnString('>');
Println(Regex.Replace(s,'(.)\1+','...'))
end.

Тестовое решение:
> *** 244800+10000=254800 тестовый пример *****
... 2...8...+1...=2548... тестовый пример ...

0 0

4 года назад

Кто решит дам 20 баллов!!!Передача файла размером 16 Кбайт через некоторое соединение заняла 512 секунд. Определите размер файла

Сруль

4 КБайта.

16/512*128=4.

0 0

3 года назад

Ан массив из 30 элеменов. Найи минималное знаение и колиесво элеменов делися на 3

dmh

CONST N=5;
var a:array[1..N] of integer; min,i,col:integer;
begin
min:=56536;
col:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i] < min then min:=a[i];
if a[i] mod 3 = 0 then inc(col);
end;
writeln('Минимальное значение в массиве = ',min);
write('Количество элементов кратных 3 = ',col);
end.

0 0

4 года назад