2 Кбайт = 2*1024 байт = 2048 байт
128 бит = 128/8 байт = 16 байт
2048+16 = 2064
Смотря для каких целей этот робот,он может заниматься рыбалкой,так же может проверять лед на прочность, и, в перспективе, возможно, будет спасать людей, которые оказались в воде.
Const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (a[i] mod 2 <> 0)and(a[i] mod 3 = 0) then s:=s+a[i];
writeln('s=',s);
end.
Пример:
Исходный массив:
66 14 74 6 15 65 42 37 34 0 63 75 69 17 50 15 78 14 7 35
s=237
ЭКРАННЫЕ ОБЪЕКТЫ - это текстовые или графические элементы, позволяющие
пользователю в понятном ему виде ввести данные или команды и получить обратно результат. Основными экранными
объектами являются: область, окно, панель, индикатор, курсор, поле
ввода, корзина.
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.