4 года назад

Розповідь про пристрої для роботи з даними

1 ответ:

mia1105854 года назад

0 0

После установки на Toshiba Satellite 2450-S203 Windows 7 возникло несколько проблем.
Сейчас более менее все поставил. Не работает Card Reader. Драйвер встал нормально но устройство в диспетчере отмечено желтым знаком и написано "Недостаточно свободных ресурсов для работы данного устройства. (Код 12)
Чтобы использовать это устройство, нужно отключить одно из прочих устройств в системе". Устройство естественно не работает. Com и LPT отключал, непомогло.

Читайте также

Дан массив целых чисел.Найти max и min значения среди чисел,принадлежащих интервалу [a;b]. Числа a и b вводятся с клавиатуры. Пр

ЛизаНя

Var m:array of integer;
a,b,i,n,min,max:integer;
begin
readln(n,a,b);
setlength(m,n);
n-=1;
a-=1;
b-=1;
max:=a;
min:=a;
for i:=0 to n do begin
read(m[i]);
if (i>=a) and (i<=b) and (m[i]>m[max]) then max:=i;
if (i>=a) and (i<=b) and (m[i]<m[min]) then min:=i;
end;
writeln('Min ',m[min],' Max ',m[max]);
end.

0 0

4 года назад

Дана последовательность натуральных 3-х значных чисел, за которой следует 0. Составить программу поиска в данной последовательно

angelina624 [1]

Var
k: array[1..100] of integer;
a,N,i,c:integer;
begin
c:=0;
i:=1;
a:=999;
write('Введите N: ');
readln(N);
writeln('Введите a: ');
while a<>0 do beginr
eadln(a);
if (a>=100) and (a<=999) then begin
if ((a div 100)+((a div 10) mod 10)+(a mod 10))=N then begin
k[i]:=a;
i:=i+1;
c:=c+1;
end;
end;
end;
if c>0 then begin
writeln('Числа, сумма цифр которых равна ',N,':');
for i:= 1 to c do
writeln(k[i]);
end;
end.

0 0

4 года назад

Помогите информатика. 2 вопрос. там еще D) в документ можно добавить сколько угодно декоративных текстов.

нурсултанАшимов

D) в документ можно добавить сколько угодно декоративных текстов.

0 0

4 года назад

Пользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное

Robotrav

var a,b:integer;

Begin

read(a,b);

if ((a>b) and (a mod b = 0))

or ((b>a) and (b mod a = 0)) then writeln(a+b)

else writeln(a-b);

End.

0 0

4 года назад

Как называется число, которое указывает на конкретный элемент массива и записывается в квадратных скобках?

kiki22 [79]

Индекс
============================

0 0

2 года назад