<span>Вы решили поработать с компьютером, включили его, устроились поудобнее, но вместо приветствия увидели на экране «DISK BOOT FAILURE, INSERT SYSTEM DISK»? Это сообщение означает, что ПК не может загрузить данные с системного диска. Если эта ошибка не связана с поломкой винчестера, её можно исправить. Но иногда она возникает из-за аппаратной неисправности. В таком случае починку компьютера лучше доверить профессионалам </span>
Const n=10;
var
a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s:=0; k:=0;
for i:=1 to n do
if a[i]<0
then begin s:=s+a[i]; k:=k+1; end;
writeln('s = ',s,' k = ',k);
end.
Пример:
21 5 -11 -6 -14 -9 1 -25 9 5
s = -65 k = 5
===== PascalABC.NET =====
begin
var A := ReadArrInteger('Введите 8 целых чисел:', 8);
A.Println;
var B := ArrGen(8, i -> i * i, 1);
B.Println;
var C := ArrRandom(8, -99, 99);
C.Println;
end.
Примечание: Если все три массива надо вывести в одну строку, вместо A.Println и B.Println указать A.Print и B.Print
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadInteger('Введите трехзначное число:');
var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
if b+c<>0 then
if x mod (10*b+c)=0 then begin
Writeln('Вычеркнуть первую цифру (',a,')');
Exit
end
else
if a+c<>0 then
if x mod (10*a+c)=0 then begin
Writeln('Вычеркнуть вторую цифру (',b,')');
Exit
end
else
if a+b<>0 then
if x mod (10*a+b)=0 then begin
Writeln('Вычеркнуть третью цифру (',c,')');
Exit
end;
Writeln('Нет решения')
end.
Коммуникационная среда - это совокупность условий, которая позволяет людям и <span>организациям</span><span> </span><span>обмениваться информацией путем прямого обращения друг к </span><span>другу.</span>