Переваги: більша швидкість інтернету, пінг менше
Недоліки: необхідне додаткове обладнання, кабель
Program cikl;
uses crt;
var x,y:integer;
begin
write('веди нужное число');
read(x);
for y:=-25 to x do
write(' ',y);
inc(y);
end.
это сгадится
Var z1,z2:byte;
begin
for z1:=1 to 9 do begin
for z2:=0 to 9-z1 do begin
writeln(z1,z2,z1+z2);
end;
end;
end.
По просьбе автора задачи - вариант с 3 циклами
var x,y,z:byte;
begin
for x:=1 to 9 do begin
for y:=0 to 9 do begin
for z:=0 to 9 do begin
if (x+y=z) then writeln(x,y,z);
end;
end;
end;
end.
Используем правила деМоргана и др:
=(А+В+С)•~А•~В•~С=А•~А•~В•~С+~А•В•~В•~С+~А•~•ѕ~С=0
(А•~А=0 и т.п)