1. Удалить файл
2. Закрыть рекламу
3. Проверить комп на вирусы
Не знаю в каком порядке
ну или позвать взрослых
Цепочка одинаковых символов заменяется на последовательность: количество повторений и сам символ.
7A1P1E1L1S1I7N
512 кбайт = 0,5 мбайт → со скоростью 2 мбайт/мин будет передаваться 0,25 минуты = 15 секунд
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=MatrRandom(5,5,-99,99); mas.Println;
var b:=mas.ElementsByCol.Where(t->(t>5) and (t mod 3 =0));
var c:=b.Aggregate(biginteger(1),(x,y)->x*y);
Writeln('Произведение =',c)
end.
Как в школе учат :
const n=5; m=5;
var
a,b,c,i,j:integer;
mas:Array [1..n,1..m] of integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(100);
c:=1;
for i:=1 to n do
for j:=1 to m do
if (mas[i,j]>5) and (mas[i,j] mod 3 =0 ) then
c:=c*mas[i,j];
Writeln('Произведение =',c);
end.
var
s : integer;
m : BigInteger;
begin
m := 1;
write('даны числа:');
for var i := 1 to 20 do begin
write(' ', i);
s := s+(i*i);
m := m*(i*i);
end;
writeln(#13, 'сумма квадратов ', s, #13, 'произведение квадратов ', m);
end.