Смотря для чего он нужен, если для офиса сойдет стандартный встроенный, а если для игр, то лучше внешний,
И да, все винчестеры НDD
Var
A :array[2..20] of integer;
i : integer;
begin
for i:=1 to 22 do
for i:=1 to 22 do
begin
A[i]:=A[A+2];
Writeln(a[i]:4);
end;
end.
1) Жестами(человек общается с кем то с их помощью)
2) Написать(ученик показывает тетрадь учителю с дом.раб.)
3) Показать(например презентация классу)
4)Мама приносит еду и идут запахи(это запах, передача информации с помощью запаха)
5) Школьник садится за парту и он ощущает стол(тактильный способ передачи информации).
var a,b: array of integer;
i,n,lo,ss: integer;
begin
lo:=0;
ss:=1;
write('Введите количество элементов массива');
readln(n);
setlength(a,n);
setlength(b,n);
for i:=0 to n-1 do
begin
write('Ввод данных для a[',i+1,']=');
readln(a[i]);
if a[i]<0 then inc(lo) else ss:=ss*a[i];
end;
writeln('Данные массива A:');
for i:=0 to n-1 do writeln('a[',i+1,'] = ',a[i]);
writeln;
writeln('Данные массива B:');
for i:=0 to n-1 do
begin
if odd(i+1) then b[i]:=lo else b[i]:=ss;
writeln('b[',i+1,'] = ',b[i]);
end;
end.
Ответ 4
импликация: основное правило чтоб запомнить 1→0=0 это ед.случай и он только в 4 пункте!