===== PascalABC.NET =====
begin
ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')
end.
Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadInteger)
.Where(t->(t mod 3=0) and (Abs(t) mod 10=9)).Println
end.
N=2^i
128=2^i
I = 7 бит
20*7=140бит
По моему так)
Полное
резервное копирование, Дифференциальное резервное копирование, Инкрементное
резервное копирование, Клонирование, Резервное копирование в виде
образа, Резервное копирование в режиме реального времени.
Var
res,mas:array[1..100] of real;
k,i:integer;
begin
k:=0;
for i:=1 to 15 do
read(mas[i]);
for i:=1 to 15 do
begin
if mas[i]<0 then
write(mas[i],' ')
else
begin
k:=k+1;
res[k]:=mas[i];
end;
end;
for i:=1 to k do
write(res[i],' ');
<span>end.</span>