После установки на Toshiba Satellite 2450-S203 Windows 7 возникло несколько проблем.
Сейчас более менее все поставил. Не работает Card Reader. Драйвер встал нормально но устройство в диспетчере отмечено желтым знаком и написано "Недостаточно свободных ресурсов для работы данного устройства. (Код 12)
<span>Чтобы использовать это устройство, нужно отключить одно из прочих устройств в системе". Устройство естественно не работает. Com и LPT отключал, непомогло.</span>
Var a1,a2,a,s,k:real; n:integer;
begin
a1:=100; a2:=100;
s:=a1+a2;
n:=2;
write('k = ');
readln(k);
k:=k*1000;
while s<k do
begin
a:=a1+a2;
s:=s+a;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n);
end.
Пример:
<span>k = 2
n = 6</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var A := ArrRandom(n, -99, 99);
A.Println;
var B := ArrRandom(n, -99, 99);
B.Println;
var s := (A + B).AsEnumerable;
Write('Min = ', s.Min, ', max = ', s.Max)
end.
Программа..............................................
Var n: integer;
s: string;
begin
write('Введите строку символов ');
readln(s);
n:=Length(s);
for var i:= 1 to ((n-1) div 3) do
insert(',',s,n-3*i+1);
writeln(s);
end.
-----------
АБС паскаль.
типа данных для 100 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.