Var
A: Array [1..100] of integer;
size: integer;
Even: integer;
notEven: integer;
i:integer;
begin
Write('Set size A :');
Read(size);
for i:= 1 to size do begin
Write('Set A[', i, ']: ');
Read(A[i]);
end;
for i:= 1 to size do begin
if (A[i] mod 2 <> 0) then begin
notEven += A[i];
end
else begin
Even += A[i];
end;
end;
Write('Sum even numbers = ', Even);
Writeln;
Write('Sum notEven numbers = ', notEven);
end.
В Милеомперах по мойму, но лутше праверь.
Begin
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -> x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -> x > a).Count);
end.
1) t = 16 секунд
V = 2048 бит/с
I = V * t
I = 2048 * 16 = 4096 Байт
Ответ: 4096 байт
2) t = 4 секунды
I = 2 Кбайт = 16384 бит
V = I / t
V = 16384 / 4 = 4096 бит/с
Ответ: 4096 бит/с
Первая программа
var x,s,z:integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z <> 0 do begin
s:=s + z mod 10;
z:=z div 10;
end;
writeln('Сумма цифр числа ',x,' равна ',s);
end.
Вторая программа
var x,i,z,j,k,leng:integer;
a:array of integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z <> 0 do begin
leng += 1;
z:=z div 10;
end;
SetLength(a,leng+1);
for i:=leng downto 1 do begin
a[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to leng do begin
for j:=i to leng-1 do begin
if(a[i] = a[j+1]) then
k += 1;
end;
end;
if(k > 0) then
writeln('Да')
else
writeln('Нет');
end.