<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var m:=n-1;
var found:=false;
for var i:=0 to m do begin
for var j:=0 to m do
if i=j then continue
else begin
for var k:=0 to m do
if (k=i) or (k=j) then continue
else
if a[i]+a[j]+a[k]=0 then begin
Println('Решение:',a[i],a[j],a[k]);
found:=true;
break
end;
if found then break
end;
if found then break
end;
if not found then Writeln('Нет нужной тройки чисел')
end.
<u>Примеры</u>
n= 13
-25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5
Решение: -25 -23 48
n= 8
-33 -23 -3 -5 -5 -20 -22 34
Нет нужной тройки чисел
Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
<span>end.</span>
Var
flag,i,x,y:integer;
begin
x:=Random(0,99);
flag:=0;
for i:=1 to 10 do begin
write('Введите ваше число ');
readln(y);
if (x = y) then begin
flag:=1;
writeln('Дан правильный ответ!');
break
end
else
if (x < y) then
writeln('Попробуйте взять число поменьше')
else
writeln('Попробуйте взять число побольше');
end;
if flag = 0 then writeln('Все попытки исчерпаны');
end.
Значит так. 256 цветов - 256 вариантов. 256= 2^8 - каждый кодируется 8 битами, или же 1 байтом (продолжим решать в байтах). Всего на мониторе 640х480=307200 пикселей => нужно 307200 байт памяти
2 вопрос 3 способа 1 из а в з из а в б в д в е в з и внизу также
